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1) #HEAD T32000 HOME ROM ; 
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& 4% TIMEX / SINCLAIR 2000 SYSTEM SOFTWARE * o 
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T$2000 HOME ROM BASIC ; PAGE 2 PRO 
Loc OBI COLE M STMT SUURCE STATEMENT ASEM 5.9 ® 
13° #EJECT F 
14 #INCL SYSVAR Ath 
15 #PAGESIZE 54 y . 
14 i 
17) RST: MACRO #ROUT os 
1% RET #ROUT are 
iv ENDM 
20 ~ + “ 
21 ASSERT: MACRO #COND 
22 COND .NOT. CHCUND) j Cs 
23 ERROR IN ASSERTICN #COND . “ie 
2 END ‘ 
25 ENDM m, 
26 
27 + SYSTEM VARIABLES 
23 . @ 
29 LLLEN .EGQL 32 3° # CHARS PER LINE ON THE DISPLAY ‘ 
gO TVLLNS: EOU 24 ; NO. OF LINES ON TV SCREEN ‘ 
“1 DFILE: EGS 4000H + ADDRESS OF DISPLAY FILE co 
22 ATTRS: EQU DUFILE+L LEN#TV_LNS#S 3: SCREEN ALTRIBUTES i 
22. PREUFF: EQU ATTRS+TV_LNS#L_LEN § PRINIEK BUFFER . i 
0000 34 ASSERT PRBUFF. AND. OFFH=0 © 
35 KSTATE: EQU PREUFF+L LENSS ¢ SkE KE DOCUMENTATION 
26 KSLA EWU O : 1ST BYTE IS A CHAR KEY PRESSED 
37 #KS.c: EoU 1 % 2ND IS TIME TILL COUNTS AS RELEASED ; +) | 
23 KSB: Eu 2 ; BRD 1S TINE (IN FRAMES) riLL REPEAT t 
a?) KS_D: = EQU 3 3 4TH IS CODE WHEN REPEATS i 
40 $ © STH - SIH- ARE A SECOND SET UF 181 FOUR oO: 
41 LASTLK: EQU KSTATE+S + NEWLY PRESSED KEY ; 
42 REPDEL: EGW LAST K+ $ DELAY BEFORE 15T REPEAT (INITIALIZED 1Q 35) H 
43 REPPER: EQU REPDEL+1 3 DELAY BEFORE SLIBSEGUENT REFEATS (INITIALIZED TO 5) © i 
44 DEFADD: EQU REFPER+ $ <> CHAR AFTER “(% IN FORMAL PARAMETER LIST? MUST BE 
4s : O WHEN NO USER-DEFINED FN BEING EVALUATED : | 
44° K_DATA: EGU LErADD+2 s DATA BYIE IN CUMPOSITE CHAR FROM KEYBOARD oO; 
47 TVLATAE EQU KDATAtL $ USED FOR STORING BYTES IN CCIMFOSITE CHARACTERS: f 
4% : 3 (TVDAIA) = KEY BYIE, ; “od 
49 $ (TVLATA+1) = 1ST LATA BYTE FOR AT OR TAB. Cx 
50 STRMS: EGU TVDATAtZ $ STREAM DATA: POINTERS (OFFSETS FROM (CHANS)-1) TO : ’ 
Sa 3 CHANNELS. © = STREAM NOT OFEN. Jui 
52 HIDSTRIEGU 3 ” $ NG. STREAMS HIDDEN FRUM USER. THESE AKE TIED c 
53 , 3 UNALTEKABLY TO SFECIFIC CHANNELS. F 
54 HIDLK: ; Eu -3 3 KEYBOARD . | 
£5 HID_S: EQU -2 3 TV, UPFER HALF OF SCREEN ; : © | 
5& HIDLR: EG -1 s INSERTION IN RAM i 
57 COM_STIEGQU O 3 STREAM FOR COMMANDS 
5a INPLSTIECW 1 $ STREAM FOR INFUT DATA oO! 
59 PROST: EQU 2 3 STREAM FOR FRINT i 
40  LPRSTHERWW 3 3 STREAM FUR LP RINT 
61 CHARS: EGU STRMS+(HIUSTR+146) #2 $ -> @*ZOH BYTES BEFORE CHARACTER SET (.) 
42 FART? Eu CHARS+2 3 NG. CYCLES OF ERROR NOISE (2 SVES BELUW MIDOLE C) 
63° PIP: EGU FART+1 + NO. CYCLES OF KEYBOARD NOISE (3 SVES ABOVE MIDDLE C) 
64 Y: EWU PIP+1 + VALUE ALWAYS HELD IN IY Go 
65 ERR.NR EQU Y $ CRUN TIME ERROR #] - 1 i 
66 FLAGS: EQU ERR_NR+1 3 VARIOUS FLAGS - j 
o | 
it 
3 
Cy 
ae c 
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TS2000 HOME ROM 
Loc 


BASIC FAGE 3 
Ov COLE M STMT SOURCE STATEMENT SM 3.9 
67 SPc: Ew 0 3 SUPPRESS SPACE BEFORE TOKENS 
&3 PR: EQU 1 3 PRINTING 10 PRINTER, NUT TV 
é9 LMODELZ EGU 2 1 LO MODE, NOT K, AT CURRENT CHARACTER 
70 LNODE: Eau 3 ; L MODE, NOT K, AT CURSOR 
71 KEYHITIEQU S 5 KEYHIT FOUND 
72 Nios EQU & 3 EXPRESSION IS NUMERICAL, NOT STRING 
73 INTPT: EQU 7 5 REG INTERPRET RATHER THAN CHECK SYNTAX 
74 TVFLAG: EQU FLAGS+1 $s FLAGS ASSOCIATED WIIH THE TV 
73 LHS: Eau o i PRINTING TO LOWER HALF OF SCREEN 
74 EDIT: Ey 1 Hy QUTPUITING LINE FOR DIT OR NG, FOR STRING 
77 ECHREQFEQU 3 ' ECHU REQUESTED IF INPUTTING FROM KEYBOARD 
73 Lists EGU 4 $ QUTPUTTING AN AUTOMATIC LISTING 
7 CLH EoU S 5 CLEAR LOWER HALF WHEN KEY PRESSED 
#0 ERRSP: Ew TVFLAG+L $-> BOTTOM TTEM ON MACHINE STACK. 
G1 LISTSPs EGU ERR_SP+2 3 -> RETURN ADDRESS Fir M ALITOMATIC LISTING 
62 MODE: Eu) LISTSP+2 7 OK ORL, 1 =F, 2= G6. 
23 NEWPPC: EQu MODE+1 : LINE TO BE JUMPED TO 
84 NEPPC! EGU NEWPPC+2 $ SUBLINE TO BE JUMPED TO (BLT 7 OFF FORCES JUMP) 
Ba PRC EQu NSPPC+1 3 LINE # GF INSTR BEING INTERPRETED 
26 SUBPPC: EGU PPC+2 3 NO. WITHIN LINE OF INSIR BEING INTERPRETED 
$7 BORDCR: EOU SUBPFPC+1 $s BORDER COLQUR (SHIFTED LEFT BACKG BITS WITH OS IN 
Se 3° BITS O-2 & 6-7) 
‘ & E_PPC EQu BORDCR+1 s LINE # OF "CURRENT" LINE IN LISTING 
90 . 7THE VARIABLES FROM (VARS) UP TO & INCLUDING (STKEND) 
a1 § ARE ‘MUVABLE’ IN THE SENSE THAT THEY ARE ADJUSTED 
22 3 (BY REMNGSZ IN MODULE EDIT) WHENEVER SIUFF I5 
v3 3 INSERTED IN OR DELETED FROM RAM. 
94 VARS EQuU E_FFC+2 $ -> 15ST RECORD FOR A VARIABLE (LAST IS 1 BYTE S0H) 
95 DEST EQU VARS+2 3 -> VAR MATCHED BY TEMPL CODE 1 OR 4 (TEXT OR RECORD) 
9% CHANS 8 EQU DEST+2 3 -> CHANNEL DATA CINCLUDING FLUFPY BUFFERS). 
97 3 EACH ITEM COMPRISES: 
V2 ; V3 UF AN OUTPUT ROUTINE FOR WRCH, 
9 5 CF AN INPUT ROUTINE FOR INCH, 
100 3 A 1-BYTE COVE FOR THE DEVICE TYPE, 
101 3 &, WHERE AFFRUFRIATE, A FILE NAME, ADDITIONAL 
102 3 DATA & A BUFFER. : 
103  CURCHL: EQu CHANS.+2 3 -> LATA FOR CURRENT CHANNEL 
104 FRUGs Eau CURCHL+2 3 -> BASIC PROGRAM 
105 NXTLIN? Ea PROG+2 3 -> NEXT LINE -OF SOURCE COUE 
106 DATALD: a EQU NXTLIN¢2 37> TERMINATOR UF LAST DATA IT1EM 
107) E_LINE EGU DATADD+2 § -> LINE BEING EDITED 
10% KICUR? EUU ELLINE+2 3 -> CURRENT CHAR IN INFUT BUFFER 
109 CHIADL EQU K_CUR+2 $ -> CURRENT CHAR WHEN SYNTAX CHECKING ETC 
110 X_PTR Eu CH-ADD+2 $3 -> IST CHAR NOT SYNTACTICALLY CK (O IF ALL OK) 
111 3 ‘ALSO STORES (CHADD) DURING READ & INPUT - 
11zZ  WURKSPs Eu X_PTR+2 3 -> TEMPORARY WORK SPACE 
113 STKEOTs EQU WORKSP+2 $ -> BOTTOM OF CALCULATOR STACK 
114 STKNXT? Eau STKBOT+2 3 -> NEXT FREE PLACE ON CALCULATOR STACK 
115 STKEND: EQU STKNXT 3 ALTERNATIVE NAME 
1146 
117) ~BREG: EQU STKEND+2 1 KEEPS VALUE OF CALCULATOR B REGISTER 
113 MEM: EQU BREG+1 $ -> AREA USED BY CALCTR INSTRS MEMORY & COPY 
119 FLAGSZs EQU MEM+2 $ MORE FLAGS 
120 ALOS: EGU O ; ’ AUTOMATIC. LISTING ON SCREEN 


TS2000 HOME ROM BASIC FAGE 4 
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
121 PRLEFTEGUW 1 : PRINTER BUFFER NOT EMPTY . 
122 LISTR? EGU 2 ; INSIQE SIRING WHEN DOING KB MOGE IN LISTCH 
123 CAPS_LIEQU 3 3 CAFITALS SHIFT LOCK ON 
124 - RETPOSECUW 4 3 REIVFE POSSIBLE AFTER SYNTAX ERROR 
125 OF.SZ EOQU FLAGS2+1 3 # LINES IN 2NU HALF OF SCREEN INC SEP“G BLANK LINE 
126 STOP = EGU DFLS7Z+1 $ LINE # (IN PROGRAM) GF TOP LINE ON SCREEN 
127, OLOPPC EQU S_TOP+2 3 LINE # OF E.G. INTERRUPTED STMT 
123 OSFPC: EWU CLOPPC+2 + (OLD SUB PPC) STATEMENT NO. WITHIN LINE FOR OLDPPC 
' 179 FLAGY: EQU OSPPC+1 + FLAGS ASSOCIATED WITH ASSIGNMENT 

120 FLEX: Eu oO g FLEXIBLE LENGIH ASSIGNMENT REQUIRED ‘ 
12100 WNFND: EQU 1 3 DESTINATION OF ASSIGNMENT NOT FOUND : 
132 0 INFLN? Eww 5 3 REG INPUT VALUE RATHER THAN LINE GF FROGRAM 
133, NOR EQU & 5 REQD TYPE 18 NUMERIC 
124 LINPLNtEQU 7 : LINPUT (INPUT LINE) RASHER THAN STRAIGHT INPUT 
125 STRLEN: EQU FLAGX+1 3 LENGTH GF DESTINATION WHEN STRING TYPE 
124 TAUUR EWU STRLEN+2 3 -> NEXT BYTE IN TEMPLATE 
137 SEED EQU T_ADDR+Z $ LAST RANDOM # BEFORE SCALING 
122 FRANES: EQU SkEDt+2 3 LS 2 BYTES OF 3-BYIE FRAME COUNTER 
139 FRAME2: EGU FRAMES+2 3; MS BYTE OF 3-BYTE FRAME COUNIER 
140 LLG: EGU FRANEZ+1 $ -> 1ST USER DEFINED GRAPHIC : 
141 cooRDS: EGU UDG+2 3 COCRDINATES OF LAST PLOT ETC. (CUORUS) = X-COORD., 

142 ; (COORDS+1) = Y-COORD, 
143 P_POSN: EQU COORUS+2 $ COLUMN NO. OF PRINTER POSN ‘ 
144 PRCC?  EQU P_POSN+1 3 LS BYTE OF ADOURESS UF NEXT CHAR FOR PRINTER 
145 EGU PRCC+2 ; COORDS IN LOWER HALF OF END OF KEYBOARD INPUT BUFFER 
146 EGU ECHUILE+2 3 -> SCREEN CHAR UNDER PRINT CURSOR 
147 EOU DF_CC+2 $ LIKE DF_CC FOR LOWER HALF 
143 EGU DFCCL+2 ° ; SCREEN FOSN (COL & LINE) OF NEXT CHAR TO BE UWUTPUT 
149 SPOSNL: EGU S_POSN+2 $ LIKE S_FOSN FOR LOWER HALF 
150 SCRUCT: EQU SPOSNL+2 $ (SCROLL COUNT) DECREMENIED FOR EACH scROLL 
151 ATTK_P? EQU SCRICT+1 $ CURRENT PERMANENT PRINTING ATTRIBUTES 
152 FUREG: Eu 0 H LS BIT OF FOREGROUND COLOUR 
153 BLUE: EQU CO 
154 Refs = EU 1 
155 GREENS EQuU 2 : ; 
154 BACK: Eau 3 $ LS BIT OF BACKGROUND COLOUR : A 
157 HILITE:EQU & - ; HIGHLIGHT 
153 FLASH! | EGU 7 3 FLASH 
159 MASK _Ps EGU ATTR_P+1 $ CURRENT PERMANENT PRINTING ATTRIBUTES MASK: 
140 7 0 FOR NEW, 1 FOR OLD 
161 ATTRT: EGU MASK_P+1 $ CURRENT TEMP. PRINTING ATIRIBUIES (BIIS AS ATIR_P) 
142 MASK_T: EQU ATTR_T+1 $ CURRENT TEMPCIRARY PRINTING ATTRIBUTES MASK 
143 PFLAG: EQU MASK_T+1 $s ALOITIONAL FLAGS FOR PRINTING: TEMPORARY FLAGS IN 
164 3 EVEN BITS, PERMANENT FLAGS IN QUD BITS 
165 XUR_CHIEGU Oo ; NEW CHARS XOR‘D INTO GLO RATHER THAN BEING LOADED 
146 INV_CHIEQU 2 ; NEW CHARS INVERTEU 
167. FCB: EuU 4 ; FOREGROUND := COMPLEMENT UF BACKGROUND 
143 BCR: EGU 6 ; BACKGROUND ¢= COMPLEMENT OF FOREGROUND 
149 MEMBOT: EQU P_FLAG+1L + BOTTOM OF CALCULATOR MEMORY (& NUMBERS) 
170 NMIADD: EQU MEMBOT+30 § —> USERS NMI SERVICE ROUTINE 
171 RAMTOP: EGU NMIADD+Z $ LAST ADLIRESS UF BASIC SYSTEM AREA 
172 P_RAMT# EQU RAMTOP+Z 3 -> LAST BYTE OF PHYSICAL RAM 
173 
174 geeee ADDITIONAL 


a) 


TS2000 HOME REM BASIC PAGE 5 sow 
Loc OEY COLE M STMT SQURCE STATEMENT ASM 5.9 ie 
175 ERRLULNE: EQu PLRAMT+2 SPOINTER To ON ERROR LINE NUMBER FOR A GO-TO. 
174 ERR_C: ECW) ERR_LN+2 SSTORE LINE NUMBER IN WHICH ERROR OCCURRED 


177) ERR_ EQU ERR_C+2 #STORES STAIEMENT NUNBER IN WHICH ERRUR OCCURRED 
178 ERRLT: EQU ERR_S+1 iSTORE FOR “ERROR TYFE’ AFTER A “ON ERR’ ‘ 
177) SYSCON: En ERR_T+1 SYSTEM CONFIGURATIUN TABLE. o 


150 MAX_BANK? EGU SYSCON+2 $LARGEST BANK NUMBER ASSIGNED, 
1310 CURCEN: EuUl MAX BANK+1 ;6ANK NUMBER OF THE CURRENT CHANNEL 


132 MSTBOT: EQU CURCEN+1 ;ADDRESS OF LOCATION ABOVE MACHINE STACK — 
123 VIDMOD: EQu MSTBOT+2 : ; 
1% ARSBUF EGU VIDMUD+2 sPOINTER TO ARUS BUFFER. 

1235) ARSFLG: EQu ARSEUF+2 FARUS FLAG - BIT 7 SET INDICATES ARGS PRESENT. ‘ 

124 sBIT 6 SET INDICATES DEST POINTING TO AKUS 

127 3BIT 4 SET INDICATES NXTLIN POINTING TO ARGUS. 

183 sBIT 3 SET INDICATES DATADD PUINTING TO AROS. 

129 SBIT 2 SET INDICATES K_CUR POINTING TO AROS., 

170 ;BIT 1 SET INDICATES CHLALUY POINTING TO AROS. 

171 SEIT O SET INDICATES XPIR FOINTING TO AROS. 

192 'BITS O - &6 BECOME IMPORTANT FOR THE INSERT ROUTINE 

19% T(POINTERS POINTING TO ARGS SHOULD NOT BE UPDATED : 
174 sFOR AN INSERTION INIO RAM). . 
195 = ADATLN: EQU ARSFLG+1 SPOINTER £0 THE SIART OF THE CURRENT DATA LINE 

196 3 CAROS ONLY) 

177) DTLNLM: EGU ADATLN+2 sLENGTH OF THE CURRENT DATA LINE (AROS ONLY). 

193 = STRMNM: EQU DTLNLN+2 ;CURRENT STREAM NUMBER, USED FOR BUS EXPANSION 

199 3° UNIT DEVICES, 

200 MSTACK: EQu 6200H +LOCATION ABOVE MACHINE STACK 

201) URIVES: Eau $6840H 3START GF ‘DRIVES’ AREA 

202 3 HH 

202 

204 

205 $ GTHER EQUATES 

204 

207 5s RESTARTS 

203 — 

209 ERROR: EOU & 

210) WRCH: EQU 16 

211 IGN_SP: EQU 24 . 
212 NXT_IS: EGU 32 

213 CALCIR: EQU 40 

Z14 COPYUP: i; Eau 43 

215 ° 

2146 NOSIZE EQU 5 3 # OF BYTES IN A FLOATING FOINT NUMBER 

217 GIGIT Eau “o- § GIGIT#N IS CODE FUR DIGIT N 

218 LETTER EQU O § LETTER+“ALPHA’ 15 CODE FOR LETTER ALPHA 

219 WEBDEL: EQuU 5 3 NO. CONSECUTIVE TIMES KB SWITCH FOUND OPEN BEFURE 

220 5 KEY RECKONED RELEASED. 

22 

222 SCONTROL CHARACTERS (APFFEARING ON STREAM) 

223 ; : 

22 COM_CCs Eau 6 5 PRINT COMMA 

225 EvT_cc: . Eww 7 $ EDIT 

226 BS_CC: EQU gs 3 BACKSPACE (CURSOR LEFT) 

227 CRT_CC: Eau 9 3 CURSOR RIGHT 

223 CD_CCt ERU OAH § CURSOR DOWN 


we 


TS2000 HOME ROM . BASIC — PAGE & 
tac OB! CODE M STMT SOURCE STATEMENT ASM 5.9 


cu_cc: EGU OBH s CURSOR UP 

RUB_CC: EQU OCH § RUBOLIT 

CR-CC! EGU ODH 3 CARRIAGE RETURN (NEWLINE) 

NL: EQu CR.CC 

SLUGS EGU OEH 5 PRECEDES 5 BYTES OF SLUG 

FORECC: EQU 10H 3 FOREGROUND 
$ THE CONTROL CHARS FOR FORE, BACK, FLASH, BRIGHI> 
3 INVERT & OVER ARE CONSECUTIVE IN THAT ORDER. 

AT_CCt EQU 16H 3 PRINT AT 

TAB_CC# EQU 17H : $ PRINT TAB 


§ CONTROL CHARACTERS (RECEIVED FROM KEYBOARD) 


242 STY_KCs Equ oO ’ STEADY 

243 FSH_KC: Eau 1 3 FLASH 

244 Eau 2 § LOWLIGHT 

245 ‘ EGU 3 § HIGHLIGHT 

244 NLV_KC# Equ 4 3 NORMAL VIDE 

247) INVLECS Eou $ 3 INVERSE VIDEO 

243 CSL_KCs EQU 6 § CAPS SHIFT LOCK TOGGLE 

249 TM_.KC: EGU OEH $ TOKEN MODE 

250 GRM_KC# EQU OFH 3 GRAPHICS MODE 

221 FG.KC: EGU 10H 3 FOREGROUND BLACK 
‘ 252 BG_KC: EGU 16H 3 BACKGROUND BLACK 

4 253 . 

254 SPACE: Eu ~ “¢ 

255 QUOTE Eo 7" 3 STRING QUOTE 

254 TWLLAR EGU -$~ s DOLLAR SIGN 

257 CULONS Em “8? 

253 COMMA EQu -,” 

259 KET En 7)? 

260 BRA EGU - (7 

241 GT? EQu “>” 

262 MINUS EC “-? 

262 EQUAL Eau “=” 

244 FLU: EQU “+- 

265 STROKE: | EQu ¢/- 

244 POWER: EQU ““? . 

267 POINT? EQu *.¢ : 

263 SHARP: EQU SFH § PRESTEL COVE FOR ‘#° 

269 STD_GR: * EQU = SOH 3 1ST StANDARD GRAPHIC 

270 UDLGR: EGU OH $ 1ST USER-DEFINED GRAPHIC 

2/1 

272 $ TOKENS 

273 i 

274 Tako: EQU OASH 3 1ST TOKEN 

275) = RNDOTOK: EGU OASH 3 “RND’ 

276 INKEY! EGU QOASH 3. “INKEYS~ 

277) «PIs £UU OA7H $ “PI? 

273 ;FNTK: EQU OASH $ ‘FN’ 

279 PNT_TK: EGU OAFH 3 “PUINT’ 

230 SCRNTKs EQu OAAH 3 “SCREENS” 

231 ATTRIK: EuU OABH 3 “ATTRT-* 

232 AT! EGU OACH $ “AT” 


ia 1S20600 HONE ROM BASIC 
Lon OR! COUE M STMT SOURCE STATEMENT 


TOK LPNS 
TAB: 

VALSTK: 
LO_MON: 
BIN_TES 
OR_TK: 


ct ce 


2 cee mo 
QNSWawWne SHON OU Sw 


dN 


LINETKs 
THEN: 
To: 
STEP: 
DEF _TK? 
MINLEWS: 
CAT_TES 
FORMTES 
MOVE TK Ss 
299 DEL_TK: 
300 OPNLTKS 
SOL CLOLTKs 
202 MGOR_TKs 
303 VFY_TK: 
304 BEEPTK: 
303 ARCLTKs 
206 FOTOK: 


SNP boty 


NBS HI ND 


OD INVTOK: 
310 OUTLTK: 
S110 LFR_TK: 
B12 LLITK: 
313 STOPTK: 


314 READTKs | 


315 DATATK: 
S16 RESTTK: 
317) NEXTOK 
313 DUMFTK: 


320 BORUPT: 
321 PRUING 

22 PRIOLTS 
KBLPT? 
4 OLPORT: 
23 TLPORT: 
Ay 


ray 
2 
2 


HO L2 £0 2 GI tO te to te 
WRN NN NAD 


BDAIPT: 
BCMDPT: 
31 HREXPTs 


7 
3 DKHSPT: 
ed 
19) 


336 CHAN_K: 


Eu 


Eau ¢ 


EQu 
EQU 
EGU 


Eau 


Eu 


Eau 


EQu 


Eau 


Eu 


TAPE_I: EGU 


Eau 
Eau 
Eu 
Eu 


Eau 
OAH 
Eutl 
EQU 
Eu 


EQu 
OCBH 
occH 
OCDH 

Eau 

Eu 

Equus 

Ew 

Ea 

Eu 

Eau 

Eu 

Eu 

Eau 

Eau 

EQu 
OD9H 


FOTUK+S 
Eau 
Eu 

OE1H 
Euu 
Eau 
Eu 
Eau 

OF 3H 
Eau 


EU 
OF BH 
EQU 
OFEH 
’ Eau 
“Buu 
6 


OCEH 


Oe F_rk 


ODFH 
ODO 
OD1H 
OD2H 
OD3H 
OD4H 
ODSH 
ODSH 
OD7H 
OUSH 


ODFH 
OEOH 


OEZH 
OEZH 
OE 4H 
OESH 
OFFH 
OFEH 
OF BH 


OFEH 
OFEH 


: 
7 


3 


$ 


3 


we 


“TAB’ 
3 
i 
3 
“OR’ Nb 
CONSE! 
3 
“ THEN’ 
“TO’ 
“STEP” 


5 
3 
3 
$ 
$ 
$ 
$ 
3 
4 
$ 
3 


; 
“FORESRO 
BRIGH 
ORVER 
“ INVERT’ 
$ 


3 
“LLIST’ 
3 


“a ve we 


“NEXT~“ 
$ 


3 
FOR INFU 


PAGE 7 
AMM 5.9 


1ST TOKEN TO REQUIRE A SPACE AF IER 


VALS“ ‘ 

TOKEN FOR 1ST MONADIC OPTR AFTER VALS (CODE) 
“BINS 

THE TOKENS FOR GR, ANU, <=, >=, <> ARE 
CUTIVE IN THAT ORDER. 

“LINE” 


“DEF ¢ 
127 TOKEN THAT IS A KEYWORD RATHER THAN UOPERATUR 
“CAT? 

“FORMAT ~* 

“MOVE? : 

*DELE IE’ : ° 

“OPEN? 

“CLOSE’ 

“MERGE * 

“VERIFY? 

“ BEEP’ 

“ARC? 

UND’ NB THE TOKENS FOR FORE, BACK, FLASH, 

T> INVERT & OVER ARE CONSECUTIVE IN THAT 


“OUT? 
“LPRING? 


“STOP? 
“REAL 
“TIATA’ 
“RESTORE’ 


“COPY” 
GUTPLIT FORF FOR SENTING BORDER COLQUR 


T FROM PRINTER 
FOR OUTPUT TO PRINTER 


INPUT PORT FUR READING KEYBOARD 


. 
? 


: 
> 


TAPE 


$##*#ADDITIONAL 
BOCK HORIZONTAL SELECT PORT 


OF 4H 
OFCH 
OF DH 
OFFH 

9 tee 


$ 
3 


EXPANSIO 
EXPANSIO 
HOME ROM 


QUTPUT PORT FUR TAPE 
INFUT PORT FOR TAFE 
INPUT BIT IN (I_LPORT) 


IN BANK CATA PORT 
IN BANK COMMAND PORT 
EXPANSION BANK PORT 


sOFFSE1TS FROM (CHANS) OF PERMANENT CHANNELS 


Eau 


0 


KEYBOARU 


TS2000 HOME ROM 
Loc OBJ CODE M STMT 


337 
338 
339 
340 
341 


BASIC 
SQURCE STATEMENT 


CHAN_S: 
CHAN.R: 
CHAN_P: 


CH-SET? 


Eau S 
EQU 10 
EQU 15 


EQU 4000H-96#8 


PAGE 8 
ASM 5.9 


TV SCREEN (UPPER HALF) 
RAM INSERTION 
ZX PRINTER 


ADDRESS OF CHARACTER SET (STARTING WITH SPACE) 


&» 


TS2000 HOME Rom BASIt PAGE 9 
Loc Of! CODE M STMT SOURCE STATEMENT ASM 5.97 
342 *EJECT 
342 ‘ 
244 CALCULATOR COMMANDS. IN THE DESCRIPTIONS, T & S STAND FOR 


5 
$s THE TOP & SECOND FROM TOP UN THE CALCULATOR ‘STALK. 
8 WHERE NECESSARY, FULLER DESCRIPTIONS CAN be FOUND AT THE 
3 CODE FOR THE RELEVANT RUWTINES. . 


§THE FOLLOWING COMMANUS HAVE THE STACK POINTERS HL & DE (BUI 
§ NOT (sTKNXT)) GECREMENTED FOR fHEM BY CALCTR BEFQRE THEY 
5 ARE CALLED (STKDWN). 


3 1FSUMPs Eau oO 73.7 -> S$ RELATIVE JUMP CONUITIONAL ON VALUE OF T. 
4 EXIHE Eu TF IUMP+1 3S (EXCHANGE) ST -> 7.5 
So LOSES: Eau EXCH+1 3$,T -> S 
4 SUBS Eu! LOSE+1 s(SUBTRACT) S.T -> S-T 
7 TIMES® EQU Slib+d $3.7 -> SH*T 
3 D1V: EQU TIMES+1 s(DIVIDE) $»T -> S/T 
359 POWER: EGU DIV+L $$,.T -> SH#T is 
B40 Cs Evi POWER+1 33,7 -> S OR T (SEE OR). 
341 ANUS EQU GR+1 $S,.T -> NUMERICAL S AND T (SEE NOAND). 
362 GTt Ew AND+4 $S.T -> NUMERICAL S>T , 
343 $5 NUMERIC COMPARISON OPERATIONS HAVE NUT BEEN GIVEN 
‘ 344 3 MNEMONICS. S.T -> S*T WHERE * IS <=,>=,<¢5.>,¢ OR = 
345 3. SEE CMPRSN. 
344 ADL: EQU AND+7 $S.T -> S+T 
247 | STGAND: , EQU ADD+1 3S%,T -> S$ ANDS T (SEE STGAND). 
2468 34 STRING COMPARISCUN OPERATIONS WITHOUT MNEMUNICS. 
349 EQU STGAND+7 3$$,T$ -> SS +$ TS 
370 . : 
371 FORDINARY CPERATIONS WITHGUT STKDWN. ; 
EQU CONCAT+1 37% -—> VALS TS 
EQuU VALS+1 37% -> ADLRESS OF BIT PATTERN FOR CORRESPONDING 
H USER-DEFINEU GRAPHIC 
274 INKEY: EQU USRS+1 3T -> INKEYS #T 
377 NEGATE: . EQU INKEY+1 $T -> -T 
378 CODE: Ew NEGATE+1 © sT% -> COLE TS 
: 3797 LOMCIN: EQU. CODE SOFERATION CODE FOR LOUMON 
2 3220 0 6VALS Eu CODE+1 31% -> VAL TS 
2781 LEN? EGU VAL+1 37% -> LEN TS 
382 SINE EQuU LEN+1 3T -> SIN T 
333 Coss EQU SIN+L $T -> cos T 
394 TAN: EWU COS+1 3T -> TAN T 
335 ASN: EOu TAN+1 $T -—> ARCSIN T 
Bg4 ACS: EQu ASN+1 $T -> ARCCOS T 
387 ATNe Eau ACS+1L 3T -> ARCTAN T 
323 LM EQuU ATN+1 3T -> LN T 
Bey EXPs EQU LN+1 3T -> EXP T 
390 INTs Eu EXP+1 sCINTEGER PART) T -> INT T 
SV1 ROOT: EGU INT +1 $T -> SQUARE ROOT OF T 
3BY2 SIGNe Eu ROOT+L #T -> SGN T 
373 ABS: EGU SGN+1 s (ABSOLUTE) T -> \TN 
3974 PEEKS EGU ABS+1 $7 -> PEEK T 
393 IN: EQU PEEK+1 3T -> IN T 


i! 


TS2000 HOME ROM 
Loc OkJ CODE M STMT 


SG 
S?7 
38 
377 
400 
401 
402 
403 
404 
. : 405 
406 
407 
4083 
409 
410 
411 


BASIC PAGE 10 

SOURCE STATEMENT ASM 5.9 

USRe Eu IN+1 $7 -> USR T 

STR: EGU USR+1 $T -> STRS T 

CHR: EGQU STR+1 3T -> CHRS T 

NOT: Eau CHR+1 3T -> BOOLEAN (T = Q) 

ZERU?: EGU NOT 

DULF: EQu NOT+1 +(DUPLICATE) T -> TT 

INTDOIVs EQu DUP+1 s(INTEGER DIVISION) SyT -> S MOU T, INT(S/T) 
JUMP 8 EQU INTDIV+1 7FRUGRAMME CONTROL - RELATIVE JUMP BY FOLLOWING BYTE 
LITERALFEQU JUMF+1 SSTACKS FOLLOWING NUMBER. 

LOOP: EU LITERAL+1 sLIKE ZILOG DUNZ ; 

MINUS? 8 EQU LOUP+1 37 -> BOOLEAN (T < 0) 

PLUS?2 EQU MINUS?+1 $T -> BOOLEAN (T > Q) 

QUITS Ew FPLUST+1 SRETURNS CONTROL fo Z80 

ANGLE? EGU QUIT+1 37 -> Y WHERE -1 <= Y <= +1 & SIN T = SIN (PI/2#Y) 

3 MEMORY O == TRUE IF T IN 2ND OR SRD QUADRANT 

TRUNC?: EQU ANGLE+1 s(TRUNCATE) T => INTEGER TRUNCATION OF T TOWARDS O. 
XEQTBS EGU TRUNCG+1 SEXECUITES (BREG) AS A CALCULATOR INSTRUCTION 

XEY: . EQu XEQTB+1 3S,T -> S # 1LO##T 

FLOAT: Et! XEY+1 $T FORCED [NTO FLUATING POINT FORM 

3THE FOLLOWING COMMANDS HAVE ADDED TO THEM AN OPERAND, N. 

CESV: EQuU 80H 3SUMS N TERMS OF CHERYSHEY SERIES (SEE CHSV). 
CONST: EQU CHaSV+20H s(CONSTANT) T -> T, NIH CALCULATOR CONSTANT 

MINUS1IFEQU CONST+6 sCALCTR CONSTANT EQUAL TO -1 

COPY: EGU CONST+20H $F -> Ts T COPIED TQ NTH CALCULATOR MEMORY 

MEMORY: EQU COPY+20H 3T -> Ts CONTENTS OF NTH CALCULATOR MEMORY 
OPLTKs .EQU LO MON-LO_MON 3 TOKEN FOR MONADIC OPTRK C IS OP_TK+C 
HTLMUNe EQU OPLTK+CHR § TOKEN FOR LAST MONADIC OPTR EXCEPTING -NOT 
MONOPs EQU LO_LMON. OR. OCOH SOPERATION CODE FOR LOLMON, TOR 2 BITS SET. 
LONGMO: EQU OPLTK+SIN $ TOKEN FOR’ 1ST (NUMBER) NUMBER OPIR AFTER —- 
HINOMO: EQU OP_TK+USR 3 TOKEN FOR LAST (NUMBER) NUMBER OPTR 


*LIST ON 
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Loc OBJ CODE M STMT SQURCE STATEMENT ASM 3.9 
431 #EJECT 
432 
433 GLOBAL PHLAF,NEXTCH, TOKENS, ERDOIN RES rhe aNe HL 
43 GLOBAL WRCH 
435 ; 
434 EXTERNAL UFDLK 310 
437 EXTERNAL INIT, SENDCH,LCU2 sEDIT 
; 4a “EXTERNAL RESET $s IVENT 
435 EXTERNAL CTRO : _ 3 CALC 
440 
441 PLUGIN: SHERE WHEN MACHINE IS TURNEL ON 
rererare) F3 442 OI 
OoO01 AF . 443 xXOR A $TO DISTINGUISH FROM NEW. WHICH SETS A t= —1 
0002 LiFFFF 444 LD DE, OFFFFH : : : 
o00S C320000 X 445 JF INIT 
444 
0003 ‘ 447 . ORG $ 2 
. 443 SERROR: . 3RST S = CALL ERROR 
449 . sSIGNAL RUN-TIME ERROR, PTR 1O ERROR # UN STACK 
450 3(XPTR) &= (CHADD) 
431 SWRITES ERROR # IN (ERR_NR) & ABORTS VIA ERR SP ° 
452 s;PRESERVES ABCDE AND CARRY 
oo0e § 2ASrSC 453 LO HL. (CH_ADO) 
OOOB . 22hF5C ' 434 LD (X_PTR)»HL 
QQ0E 1343 435 JR LE2 
4546 
OO10 457 ORG 14 <5 
4353 $WRCH s RST 16 = CALL SENUCH 
O10 C30000 X 459 JP SENDICH 
40 
QO18 : 461 ORG 24 
ALZ2 sIGNSP SRST 24 = CALL IGN SP 
463 3SKIP (CHADD) OVER ANY SPACES & CUNTROL CHARS UTHER THAN NL 
464 3FRESERVES BCDE, SETS HL = (CHADD) AND A = (HL) 
0018 ZAS05C 445 LO HL» (CHADD) 
001B 7E 444 LUD A» (HL) 
oo1d CH7D00 447 LIsS2: CALL SPACE? : 
QO1F Do AGE RET NC $IF SIGNIFICANT CHARACTER 
oo2z0 . 469 ASSERT $=82 
470 $NXT_IS % § RST 32 = CALL NXT.IS i 
471 . 3 NEXTCH + IGN_SP, VIZ SKIP OVER CURRENT CHAR & ANY 
472 : 3 FOLLOWING SPACES 
0020 Cn7400 473 CALL NEXTCH 
00223 18F7 474 JR LIS2 
4753 
0028 476 ORG 40 ; r 
477 $sCALCTR 3 RST 40 = CALL CALCTR 
2 473 3 DESCRIPTION IN MODULE CALC. 
0028 C30000 X 479 . JP CTRO 
4a 
9030; ol ORG 43 
482 sCoPYUP 5 RST 498 = CALL COPYURP 
493 3 MAKE ROOM FOR &C BYTES JUST BEFORE (STKBUT) 


434 3 PRESERVES ABC, SEIS DE -> 1ST BYTE OF SPACE, HL -> LAST 


ret y 


TS2000 ‘HOME ‘ROM 


LOC 


‘0030 


oos1 
0034 


0035: 


0038 


0033 
0039 
003A 
oo3n 
OO3E 
ao41 
0042 
0043 
0045 


O43 - 


o049 
O04A 
004D 
QO4E 


OO4F 
0050 
0051 


 O052 


0053 
0054 


0055 
0058 
oo0Sc 


OOSF 


00466 


004646 
0067 
0048 
OO6B 
aQ06C 
006D 
Q0O6F 


0070 


QOO71 
0072 | 


ee 
BASIC 
Ok! CODE M STMT SOURCE STATEMENT 


PAGE 


12 
9 


ASM 5.5 


SRST 562 HERE’ TO SERVICE INTERRUPT BY REAVING KEYBOARD 


(CELINE) 


$TO READ KEYBOARD; WILL RETURN TO PHLAF 


ENABLE INTERRUPTS & RETURN 


SETTING (X_PTR) 


INTERRUPT 
STRAIGHT AWAY: 
HL (ON TOP), AF & RETN ADUR CIN 


SIF NO USER-SUPPLIED SERVICE ROUTINE 


485 $ CALLS ERROR 4 IF NO ROOM. 
cs 484 PUSH BC 
'2A61SC 427 LD HL» (WORKSP) 

JES 433 PUSH HL $SAVE CURRENT 
C30000 =X: 489 UP Leu 

490 ‘ 

491 ORG 33H! 

492 
493 
F5 494 PUSH AF 
ES | 495 PUSH HL 
2A785C 496 LD HL, (FRAMES) sNQW INCREMENT FRAME COUNTER 
23 497 INC HL 
22785C 493 LO (FRAMES), HL 
70 499 LD A.H 
BS 500 OR L 
2003 501 JR NZ,LIT3 | 
FD3440 502 INC (1Y-Y+FRAME2) 
cs S03 LIT3: PUSH BC 
DS 504 PUSH DE 
cpo000)=—X:—s« S05 CALL UPD_K 
Dt Sad POP DE 
C1 507 FOP BC 

S03 PHLAK: $JUMP HERE TO POP HL, POP AF, 
Et 509 POP HL 
Fi 510 POP AF , 

FB 511 EI 
ce 512 RET 

512 
E1 _ S14 LeE2s POP HL SHERKE FROM ERROR+4 
6E 515 LD L2 (HL) 

‘ S16 LES: SHERE WITH L=ERROR # TO AVOIU 
FD/SOO . 517 LD (SY-Y+ERR_NR)L 
ED7BSUSC 514 LO SP. (ERR_SP) 
c30000 xX «519 JP RESET 
52 
, 524 ASSERT #.ULT. 66H 

522 

52: CRG 44H 

524 SHERE TO SERVICE NON-MASKABLE 

S25 $iF (NMIADD) = O fHEN RETURNS 

526 SELSE, JUMPS TO (NMIADD) WITH 

527 ; THE STACK, 

FS 523 PUSH AF 
ES 529 ~ PUSH HL 

2AKOSC 530 LO HL» (NMIADD) 

7c S31 LD A+H 

BS S532 oR L 

2001 533 Jk NZ» LNI3 

E? 534 JP (HL) 

535 
Et S34 LNIS: PUP HL 
Fi 537 FOF AF 
EL45 S39 REIN 
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Loc OBJ CODE M STMT SOURCE STATEMENT ASM S.9 
o39 : : | 
™40  NEXTCHs 3MOVE (CHADD) ON TO NEXT CHARACTER IN INPUT LINE 
541 iFRESERVES BCDE, SETS HL = (CHADD) AND A = (HL) (V1Z SES 
. 542 3 A = NEW CHARACTER) 
0074 ZASDSC 543 LO HL,» (CHADD) : 
; S44 NC.HL: 3ENTER HERE IF HL RATHER THAN (CHADD) PTS TO PREV CHAR 
0077 23 S45 ‘INC HL 
544 TCHLs ~~ $LIKE NCLHL» BUT GETS CURRENT CHAR INSTEAD OF NEXT 
0073  22z25D5t 547 LD (CHADD). HL . 
007B 7E 543 LD A, (HL) 
o07C co . S49 RET 
S50 . : . 
S31 SPACE?: SRETURNS C IF A IS A SPACE. OR CONTROL ‘CHAR OTHER THAN NL. 
S32 IF A IS THE START OF A COMPOSITE CHARACTER, [HEN MOVES 
253 3 (CHADD) ON TO THE LAST DATA BYTE (& RETURNS C). 
; are 554 30N ENTRY & RETURN, HL = (CHAD) 
007i FE21 S95 CP 7 “+1 ; 
QOO7F. Do 5546 RET NC $IF PRINTABLE CHAR (GTHER THAN SPACE) 
0080 FEOD S37 CP NL . 
0032 cs . S28 : RET Z SWITH NC IF NL 
0083 FEoc Se * CP OCH s## ADDITIONAL 
0085 ce 540 RET Z 
S41 5 Ht 7 
OORS FE10 562 CF FORECC an 
O08R 0g 3463 RET C SIF CONTROL CHAR LESS THAN FORECC 
OORD FE13 , 5464 CP TAB_LCC+1 
0083 SF Sé5 CCF F 
o0sc Ds S46 RET C IF SPACE OR CONTROL BETWEEN TABLCC & SPACE 
oosn 23 G7 INC HL’ ; 
OO8E FE14 568 CP AT_CC 
a070 SS01 ab - JR C,LSES SIF COLOUR CONIRUL 
. O092 23 570 INC HL 
_ 0093 37 S71 LSESs Scr 
0094 © 22505¢ S72 LD (CHADD), HL 


0097 Cc? S73 RET 


TS2000 HOME ROM 


ae 
Lae 


0098 
0099 
Q09B 
oo?t 
OOAL 
OOAZ 
O0AB 
Q0A4 
O0AS 
OOAS 
QOOAA 
QOAE 
OUBL 
OOB2 
OORS 
QOBS 
O0K7 
OORS 
QOBA 
QOOE 
OORE 
OOBF 
anr2 
oocs3 
O0cS 
OOS 
eors 
eo? 
oocB 
ooc’ 
OOCE 
OOCr 
oop1 
oons 
OOn4 
oous 
OOL7 


* OODS 


Oona 
OOnB 
oonc 
oonu 
oonF 
OOEO 
O0E2 
OO0ES 
OOES 
QOES 
O0ES 


ODES 
OOEB | 


me! CAM 
war a, 


BF 
524E 

c4 

4°4E 4845 


cE 


SO4F494E ~ 


n4 
53435245 


AZ4F44 
cs 


oc 


ad 


BASIC 


+E JECT 


TOKENS: 


RCE STATEMENT 


“27, OR. S0H 
“RNZ 
“D~“.0R. 80H 
“ INKEY’ 
“$C. 80H 
pe 

“1. GR. 80H 
‘FC 
“N*.OR. SOH 
“POIN’ 
“T’.UR. 80H 
“SCREEN? 
“$° OR. S0H 
“ATT’ 

“R* OR. SOH 
“AY 

“T" OR. 30H 
“TA’ 

“B’ OR. 30H 
“VAL” 

“$° OR. SOH 
“cop? 
“E*.0R. 30H 
“VAL 
“L°.UR. 80H 
‘LE’ 
“N*.OR. S0H 
“S17 
“N*.0R. S0H 
‘cor’ 
7S°.0R. 30H 
“TAS 
“N*.OR. SOH 
“AS? 
“N*.OR.S0H 
“acy 7 
“3°. UR. SOH 
“AT? 
“N’.OR,. 80H 
“L? 
“N*.OR. 80H 
“EX? 

“PP? CR. S0H 
“IN? 

“T* OR. 30H 
“on? 

“RR”. OR. 80H 
6so? 

“N’ OR. SOH 
“ARS 
“SCR. SOH 


PAGE 
ASM. S 


§ TEXT OF TOKENS: 
§ 11H TOKEN 


3 ASH RND 
: INKEY$ 
. Pr 

+ ASH FN 

; POINT 
; SCREENS 
$ ATIR 

: AT 

' rAaB 

: VALS 

i CODE 

+ BOH VAL 

' LEN 

’ SIN 

' cos 

; TAN 

; ASN 

; acs 

: ATN 

+ 8H LN 

; EXP 

' INT 

; SOR 

i SGN 

' ABS 


14 Bh 
9 


EACH HAS BIT.7 SET IN LAST CHAR 


2 


TS2000 HOME ROM 
OBJ CODE M STMT SUURCE STATEMENT 


Loc 


OOEC 
QOOEF 
OQOFO 
OOF 1 
OOF2 
OOF 4 
QOFS 
QOFS 
OOF? 
OOFC 
OOF) 
OOFF 
0100 
O102 
O10% 
O104 
0105 
0107 
0108 
Q10g 
O10A . 
010B 
0100 
o1on 
O1OE 
Olli 
O112 
0115 
O116 
117 
0118 
Q11B 
o1ic 
“Ol2Z1 
0122 
0124 
O125i 
Q1z 
O12B 
Q1ZE 
OLSF 
0133 — 
0134 
0129 
OSA 
0140 
141 
O145 
O146 
O14B 
0140 
O1L4F 
O150 
Q1S5 


44434620 | 
CE 


45524153 
cS 
4F50454E 
A3 
434C4F53 
AR 
4D455247 
cs 
56455249 
Dg 
424545 
Do 
42495243 


cs 


623 
$29 
630 
631 
$32 
623 


634 


35 
636 
637 
633 
639 
640 
641 
642 
642 
644 
645 
646 
647 
643 
649 
650 
631 
G32 
453 
654 
635 
656 
657 
633 
659 
640 
6&1 
462 
643 
L464 
6&5 
&46 
667 
663 
S49 
679 
$71 
672 
673 
674 
6735 
&7& 
&77 


6738. 


679 
480 
G21 


BASIC 


DEFM 
DEVB 
DEFM 
DErB 
DEFM 
DEFB 
LEFM 
DEFB 
DEFM 
DEFB 


‘EFM 


LEFE 
DEFM 
DEFB 
DEFR 
DEFB 
nEFM 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFER 
DEFB 
DEFM 
HEF EB 
DEFM 
DEFB 
DEFR 
DEFB 
DEFM 
DEF SR 
EFM 
DEFER 
DEFM 
NEF ER 
DEFM 
DEFB 


“ DEFM 


DEFER 
DEFM 
DERE 
DEFM 
DEFR 
DEFM 
DEFER 
LEFM 
DEFE 
DEFM 
LEFB 
DEFM 
DeEFB 
DERM 
DLFE 


“PEE” 

“K*. OR, 80H 
4I¢ 

“N*. OR. 80H 
“us?” 

“R” OR. 80H 
“STR” 

“$° OR. 30H 
“CHR? i 
“$".0R. 30H 
“NO? 

“T”, OR. 80H 
“BI? 
“N’.OR. 80H 
a he 
“R*.OR. SOH 
“AN? 
“D’.0R. 80H 
tle 
v=”,0R. 30H 
“>¢ 

v=’, OR. SOH 
“ge 


“E’. OR. 0H 
“THE’ 
“N’.OR. 80H 
“T? 

“0° .0R. 80H 
STE’ 
“POR. 80H 
“DEF F’ 
“N’.OR. &0H 
“CA” 
“T*.OR. 80H 
“FORMA 


“E*.OR.S0H 
“ERAS 

“E~ UR. 80H 
“OPEN “ 
“#° .0R. 80H 
“CLOSE ¢ 
“#°.0OR.S0H 
“MER? 
“E*. OR. S0H 
“VERIF* 
“¥? OR. S0H 
“REE* 
“P”.OR. 80H 
“CIRCL* 
“E* OR. S0H 


CSH 


DOH 


_ PAGE 15° 


ASM 5.9 


PEEK 


CAT 
FORMAT 
MOVE 
ERASE 
OPEN # 
CLOSE # 
MERGE 
VERIFY 


BEEP 


§ OSH CIRULE 


TS2000 HOME ROM 
' OBJ CODE M STMT SGURCE STATEMENT 


Luc 


O1n2 


474E 

CB 
50415045 
D2 
46404153 
ce 
42524947 
D4 
494ES645 
cs 


4F3645 


4c505249 
04 
4C4C4953 
D4 


52455354 
cs 

4E45 

07 
424F5244 
D2 
434F4E54 
cs 


474F2054 
CF 

474F 2053 
C2 
494ES055 
D4 
4C4F41 
c4 
404953 
04 

4c45 

04 
“04155523 
cs 


682 
683 
684 
635 
686 


-&37 


68S 
489 
690 
671 
692 
693 
494 
695 
$96 
697 
673 
699 
700 
701 
702 
703 


BASIC 


DEFM 
DEFB 
DEFM 
DEFER 
DErM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
CEFR 
DEFM 
DEFER 
DEFM 
DEFER 
DEFM 
DEB 
DEFM 
DEFB 
' DEFM 
DkFB 
DEFM 
DEF S 
DEFM 
DEFB 
EFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 
CEFB 
‘TEFM 
DEFER 
DEFM 
DEB 
DEFM 
OErB 
DEFM 
- DEFB 
DEFM 
DEFE 
DEFM 
DEFB 
DEFM 
EFB 
DEFM 
DERE 


*IN- 
“K*. OR. 80H 
“PAPE? 

“R’ OR. 80H 
“FLAS? 
“HOR. 80H 
“BRIGH? 
“T*. OR. 80H 
“INVERS” 
“E*. OR. 80H 
“OVE’ 

“RY. OR. 80H 
“oi? 

“T’ UR. 80H 
“LPRIN? 
“1°. GR. 80H 
“LLIS’ 

“T* ORs 80H 
“S10 
“P*.OR.S0H 
REA’ 

“D’ OR. 80H 
“LAT* 

A“, UR. 80H 
“RESTOR? 
“E’.UR. 30H 
“NE” 
“WOR. 80H 
“ BORDE’ 
“R’. GR. 80H 
“CONTINU? 
“E*. UR. 80H 
“fiI< 
“MOR. 90H 
“RE . 
“M* OR. 80H 
“Fo’ 
“ROR. &0H 
“60 T° 
“O°. OR. 80H 
“30 SU’ 
“B°.OR. 80H 
“INFU? 
“TOR. 80H 
“LOAS 

“DY. UR. 80H 
“LIS¢ 

“T* OR. 80H 
“LE? 
“T’.OR.S0H 
“PALS? 
“E*. OR. 0H 
“NEX“ 

“T’. OR. @0H 


EOH 


PAGE .16 
ASM 5.9 


FORE 


BACK 
FLASH 
BRIGHT 
INVERSE 
OVER 
OUT 
LFRINT 
LLIST 
STOP 
READ 
DATA 
RESTORE 
NEW 
BORDER 
CUNT 
DIM 


REM 


FOR 
GOTO 
GO SUB 
INPUT 


LOAD 


PAUSE 


NEXT 


» & 


& 


TS2000 HOME ROM 


Lue 


O13 
O1nds 
O1D7 
0108 
O1DT 
O1nF 
OL1EO 
O1E2 
O1ES 
O1ES, 
O1E7 
OLEF 
O1FO 
OF 1 
O1F2 
O1F4 
O1FS 
O1FS 
O1F? 
O1FD 
OLFE 
O203 
0204 
0207 


208 
o20D 
O20E 


| O213 


o214 
O218 
o219 


O21D ° 


O2Z1E 
O221 


0222, 


0226 


OBI CODE M 


SO4F 4B 
cs 

505 2494E 
4 
SO4C4F 
D4 


. 43404541 


f2 
S2455455 


44494C45 
cs 
4F4E2045 
D2 
53544943 
CB 
S34F5594E 


52459345 
b4 


END 


“Pk 

“E* UR. SOH 
“PRIN? 
“TOR. 30H 
“PLO? 
*T*.OR. SOH 
“RU 

“N*. OR. OH 
“SAV? 

“E*. OR. 80H 
“RANDIOMIZ~ 
“E*. OR. SOH 
‘y’ 

“F°. OR. S0H 
“CL¢ . 

“37. 0R. 20H 
“DRA’ 
“W°.0R. 80H 
“CLEA’ 
“ROR. SOH 
“RETUR? 
“N’ OR. SO0H 
“COP” 
“Y“. OR. 80H 


“DELET’ 


“E*. OR. SOH 


“ON ER“ 


“R* OR. 80H 


“STICc’ 


“K*. OR. SOH 


“SOUN” 


“D*.0R. 30H 


“FRE? 


“E*. OR. 80H 


“RESE” 


“T’.OR. 80H 


s#% ADDITIONAL ENTRIES 
i7A 
3 7B 
37C 

37D 
37E 


3 7F 


FFH 


PORE 
PRINT 
PLOT 
RUN 
SAVE 
RAND 


ORAW 


CLEAR 


RETURN 


‘CUPY 


DELETE 
ON ERR 
STICK 
SOUNU 
FREE 


RESET 


1/Q@Q DRIVERS 


Loc 


0000 
0001 
0002 
Q003 
C004 
000s 
0006 
0007 
O0ds 
oooD 
QOOOA 
Q008 
ooac 
ooon 
OO0E 
OOOF 


Q010 © 


OO 
OO12 
0013 
014 
e015 
HOLG 
OO17 
OO1S 
QOL? 
QOOLA 
OoO1B 
O01 
Oo1D 
OOLE 
OOF 
0020 
OO? 1 
one2 
OO2S 
Oo24 
0025 
QONZS 


0027 
0023 


PAGE 1 


$ KSCAN 
OnJ CODE M STMT SOURCE STATEMENT ASM 3.9 
1 #HEAD) = 1/0 DRIVERS 
419 #LIST UN 
420 
421 GLOBAL KSCAN, UPD_K, KHASE, CHCODE, BEE, PARP 
422 
423 EXTERNAL SYNERR, EXPRN, BREAK?» FIXU,FIXUL + SYNTAX 
424 EXTERNAL PORSIR .  - § IDENT ‘ 
425 EXTERNAL ARRAY, STK_M ‘ 3CALC : 
426 ° 
427 KIABL: S TRANSLATE TABLE, KEY POSITION TO "BASE" CHAK CODE 
423 SFUSITIONS O TO 33 (CAPS SHIFT, FOSITION 39, WON'T OCCUR) 
42 429 DEFER “B’ 
43 430 DEFER “H~ 
Sv 431 DEFB “Y” 
36 a DEFER “47 
35 433 DEFR “S7 
54 434 DEFB “T’ 
47 435 DEFB “G7 
54 436 DEFB “V’ 
4E 437 DEFER “N* 
4A 4 DEFB “J” 
53 439 DEFB “U? 
37 440 " DEFR “77 
3 441 DEFR “4° 
52 442 DEFER “R° 
4 443 DEFB “F?, 
43 444 DEFER “C’ 
40 445 DEFER “M~ 
48 444 DEFB “K~ 
4? 447 LEFB “I” 
38 443 DEFB “3° 
33 449 DEFB “37 
45 450 DEFE “E’ 
44 431 DEFE “D¢ 
53 452 LEFE “xX? 
OE 453 DEFE OEH SSYMBS SHIFT! COVE FOR "SET E MODE" 
4c 454 DEFER “LL” 
4F 455 LEFB “0” 
39 456 DEFR “9° 
32 457 DEFB “27 
37 453 LEFE “W? 
53 452 DEFB “S- 
SA 460 Ckre “27 
20 4G1 DEFB “ ¢ 
OD 442 DEFB OLH sNEWLINE 
50 4&3 QEFB “P? 
20 454 DEFER “OQ” 
ol 4Gs QEFE 71° 
a1 £4 CEFR “a 
41 4G7 DEFE “A” 
462 
449 KTAB2: I} TRANSLATE BASE CODE FOR LEIIER TO UNSHIFTED E MOLE CHAR 
ES 479 DErB READLK 3A READ 
C4 471 DEFER BIN TK “3B BIN 


I/O DRIVERS 
Loc - 


0029 
OO2ZA 
O0Z2H 
o02c 
oo02D 
QOZE 
O02F 
a030 
OO31 
OO32 
0033 
oo034 
0035 
0036 
QO37 
0033 
OO3? 
0038 
OO3B 
OoO3t 
eo2D 
OO3E 
QO3F 
on4o 


on41 
0042 
0043 
0044. 
0045 
0046 
Q047 
0048 
an49 
CO4A 
004B 
a04at 
o04u 
- OO4E 

. OO4F 
OOzO 
OOS 1 
O0S2 
0053 
Q034 
OosS 
OOS 
OOs7 
Ooks 
oOos? 
OOsA 


KSCAN 


OBJ CODE M STMT SOURCE STATEMENT 


472 
473 
474 
4753 
47& 
47? 
473 
479 
4so0 
431 
482 
483 
44 


bi 
‘3 


can nen 
RRR RE 
AD wake: 


KTAB3: 


KTAB4: 


DEFB 
DEFE 
DEFER 
LEFE 
DEFE 
DER 
DEFB 
DEFER 
DeEFB 
DEFR 
DEF sR 
DEF E 
DEFER 
DEFER 
HEF B 
DEFER 
DEFE 
DEFER 
DEFE 
DFR 
DEFER 
DEFER 


DEF 
DEF B 


DEFB 
DEFE 
DEFB 
DEFB 


‘DErB 


DEFB 
IEF B 
DER 
CEFR 
DEFB 
DEF B 
QEFB 
DeEFE 
DEFE 
DEFE 
DEFER 
DErFB 
DEFY 
DEFE 
DEFB 
DEF & 
DEFE 
DEF E 
DEFER 
vEFE 
DEFER 


LPR_TK 3c 
DATATK 70 
CPLTK+TAN $E 
OF _WTK+SGN $F 
CPLTK+ABRS 3G 
OF TE+ROOT 
OP TK+CODE 
OP_TE+VAL 
OP_TK+LEN 
OP _UTK+USR 
PI 

INKEY 
UP_LTE+PEEK 
TAB 

OP _LTK+S1IN 
OF _LTE+INT 
RESTTK 
RANDTOR 

OP TR +CHR 
LLOTK 
OP_LTKR+COS 
OP LTE+EXP 
OP_TK+S IR 
OP _LJTK+LN 


wa we we 


N<xMECCHwDSOD 2 TAC 


wa we we ve we we ue ve we we us 


; TRANSLATE 
FGTOK+3 78 
FGOTUK+ ; 
“\" ; 
CPLTK+ATN 3 
ca Re “ e 
can ie ers 
ARC_TK ; 
CPLTK+IN 3 
VALSTK 
SCRNTK. 
ATTRIK 
FGTOK+4 « 
FGTOK+S 
cIT_TK 
7FH 
LIP_TK+ASN 
VFY_TK 
ONE 
MGE_TK 
“4? 
FOTOK+2 
OP_TK+ACS 
FTOK 

SES 
BEEPTK 


AQAOVeZSErAL 


we ws we ve we ws we ve we we we vs we we we we us 


n<éxK=E< 


- § TRANSLATE 


LPRINT 

DATA 

TAN 

SGN 

ABS 
3H SQRT 
$I CODE 


INT 
RESTORE 
RNU 
CHRS 
LLIST 
CoS 
EXP 
STR 

LN 


PAGE 2 


ASM 5.5 


BASE CODE FOR LETTER TO SHIFTED E MODE CHAR 


BRIGHT 
BACK 


ARCTAN 


COPYRIGHT SYMBOL 


ARCSIN 
VERIFY 


MERGE 
FLASH 
ARTIS 
FORE 


BEEP 


BASE COVE FOR DIGIT To CAPS SHIFT K OR L MODE 


ae a a ae ae oe ee 


1/0 DRIVERS KSCAN PAGE 2 


Loc ObJ CODE M STMT SOURCE STATEMENT ASM 5.? 
; ; 526 3 (DIGITS O fO 9 ONLY) 
OOSB oc : 527 DEFEB RUB_CC 
oosC 07 323 NEFB ENT_cc 31 EDIT - 
00spD 8606 S29 DEFB CSL_KC: 32 TOGGLE CAFS LOCK 
OOSE 04 S20 CEFR NLV_KC 33 NORMAL VIDEG 
QO5SF OS S31 DEFB INVLKC 34 INVERSE VIDEO . 
0060 os a32 DErB BS_CC 35 CURSOR LEFT ie 
OO461 OA S33 DEFER CDUcC 34 CURSOR DOWN 
0062 OB : 534 ferB CuULCC 37 CURSOR UP £ 
0063 ay S35 DEFB CRT_CC 33 CURSOR RIGHT 
0044 OF ; S36 DEFB GRMLKC 37 ENTER GRAPHICS MODE 
S37 7 
S33 KTABS: sTRANSLATE BASE CODE FOR LETTER TO SYMBOLS SHIFT 
0065 ° E2 53? DEFB STOPTK 3A STOP 
aO066 2A : 540 DEFB “#” 3B 
0067 SF S41 DEFER “?” sc 
0063 cu . 542 DEFB STEF 3D STEP 
049 C3 543 DEFB OR_TK+3 5E >= 
O06A ce S44 DEFB TQ 3F TO. 
QOO6B.- CB . S45 DEFB THEN 3G THEN 
0060 SE S46 DEFB 7“? 5H 
oo46n Ac 547 DEFB AT . sr AT 
OO6E 2D 543 DEFB “-“ su 
QO&F 2B S49 CreB 7+" 3K 
0070 3 S50 DEFR “= i 
Qo71 2E S31 DEFB “.” 3M 
0072 2c S52 DEFB “7.7% 3N 
00723 3B S33 DEFR 73° 50 
0074 22 a4 DEFB 7" 3P 
00735 C7 baba) DEFR ORUITK+2 5a <= 
0076 3c S56 DEFR “<- sR 
0077 C3 S57 / | DEFER UPLTK+NOT 3S NOT 
* 00783 3E SoS DEFB “>< 37 
Q079 cs S59 DEFB COR_TK sU OR 
007A 2F 560 DEFB “/” 3V 
00/B co, ; SOL DEFBR OR_TK+4 3W <> 
O07 40 562 DEFE O4OH 3X FOUND SIG 
00/70 C4 563 DEFB OR_LTK+1 7¥ AND 
OO7E 3A ; S44 DEFR “:° $Z 
S&S 
246 KTABG: S TRANSLATE BASE CODE FOR DIGITS 0 TO ¥ Ta E MODE SYMBOLS SHIFT 
OO/F bo 5&7 LEFB FURMTK 30 
o020 CE S68 DEFB DEFLTK #1 
O08 1 Ag S69 CEFR FNOTK 32 
0082 cA 370 DEFB LINETK 33 
0083 03 S71 VEFER OPN_TK 54 
0034 04 S72 DEFB CLO_LTK 35 
OOss nt S73 DEFER MOVETK 36 
0086 2 374 DEF DEL_TK 37 
0087 A? S75 DEFB PNT_TK 3 
OORS CF 576 DEFB CAT_TK iy 


1/0 DRIVERS 


LOC 


o0F1 
0093 
0094 
009% 
0098 
0099 


OFA 


OOB | 


oorc 
OOFE 
raleyata) 
O0AZ 
 OOAZ 
OOA4d 
QOAS 
Q0A7 
QOAY 
OOAB 
OOA 
OOAn 
QOOAE 
QORO 
OOB1L 
QOOB3 
OOBR4 
QOORS 
OOKS 
OOR7 
OOBD 


KSCAN PAGE 4 


OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
S77 #EJECT 
5/8 
S79 KUSCAN: §SCAN KEYBOARD 
Seo SRETURNS NZ [F MORE THAN TWO KEYS OR IF TWO CHARACIER KEYS, 
: “S91 3 ELSE 2 AND D=SHIFT.E=CHAR IF 2 KEYS OR’ D=-1,E=KEY IF 1 
S82 3 KEY OR D=E=-1 IF NONE . 
Ses SKEYS ENCODED ACCORDING TO POSITION AS O=B, 1=H, 2=Y, 3=46,4=5, 
Sa4 3 S=7T.6=5,7=V,G=N,..007 1520, 165M) oy ZSEX, Z4=5YMES, 251, 
bat 3 wee 2 SL=Z, S2=SPACE, SS=NEWLINE, S4=P,..07 SS=Ay SY=CAPS 
SS : SPOSITIUN CUDE IS THUS 39-ROW-CS#COLUMN] 
2E2F S27 LD L,39+& 
LIFFFF Su LO DE,-1 
O1LFEFE ao? LD BC, (OFEH. SHL. 8) +KEBLPT 
: S70 LKS2e SHERE fo SCAN ROW R (R = O QO 7) 
Sv. sC = KBLPT CI/O ADDRESS], BIT kK OF B ZERO, OTHER BITS OF B 
S92 3 SET, D=-1 IF LESS THAN 2 KEYS FOUND SO FAR ELSE D = 
sv3 $ “POSITION OF FIRST KEY FOUND, E=-1 IF NO KEYS FOUND YET 
S74 5 ELSE FOSITION OF MOST RECENT, L=39+8-k 
ED73 SIS IN A, (C) : sBIT C SET UNLESS KEY IN COL C OF ROW R IS PRESSED 
2F SVG CFL 3 FuR C = 0 TO 4, HITS S&S TO 7 RUBBISH 
E41F S97 . AND 1FH 3NOW BIT C SET IFF KEY IN COLUMN C PRESSED 
220E sis JR ZaLKSS sIF NO KEYS IN THIS ROW 
67 So? LD HLA 
70 600 LD AL 
401 LKS4: sHERE WITH A = KEY POSN + & DO GF H SET IFF FRESSEU, OTHER 
602 “3 BITS UF H FUR LATER COLUMNS, BUDEL AS AT LKS2 
14 603 INC D ; ; 
co 604 RE! NZ SIF MORE THAN TWO KEYS ALTOGETHER 
n403 605 LKSés SUBS . sA t= PUSN CODE UF KEY BEING CUNSIDERED 
CBC 606 SRL H A 
SOFA 607 JK NC LKSS SSEARCH FOR THE KEY THAT IS PRESSED 
3 603 LOD DE $D '= PREVIOUS KEY (OR -1 IF NONE) 
SF 60% LO ELA SE ¢= NEW KEY 
ZOF4 610° WR NZ LKS4 * $IF THERE IS ANOTHER IN THIS ROW 
20 611 LKS@: DEC L 
CBOO 612 RLC B 
SSE6 613 JR C,LKS2 3G0 READ NEXT ROW 
7A G14 Lo A.D 
3c 615 INC A 
cs 616 RET Z : sIF AT MOST ONE KEY 
FE23 617 CF 40 
C3 613 RET Z. sIF CAPS SHIFT AND ONE OTHER 
FE1? 61? CP 25 
cs 420 RET Z sIF SYMBOLS SHIFT AND ONE OF BLNLM 
78 621 “LD ALE SHERE IF D IS A CHARACTER KEY: SWAP D AND E 
SA 622 LO ED : 
57 623 LO DLA ' $2NU REAL OF THE Twa KEYS NOW IN D 
FE13 &24 CP 24 INB CAN‘’T BE CAPS SHIFT BECAUSE IT’S READ FIRST 
Cc? 625 RET #WITH NZ IF TWO CHAR KEYS, Z IF SYMBS SHIFT AND ONE 


1/Q DRIVERS KSCAN PAGE 5 


91046 77 aly LO (HLA 


LOC ObJ COVE M STMT SQURCE STATEMENT ASM 5.¢ 
626 #EJECT 
627 
428 UPD_K: sUPLATE STATE OF KEYBOARD 
629 SHOULD BE CALLED OUNCE EVERY 20 MSEC 
OOBA CD8900 = R 630 CALL K_SCAN 
ookD CO 631 RET NZ sIF TWO UR MORE KEYS PRESSED 
OOBE 21005C 632 LU HL, KSTATE 
ooCL  CB7E 633 LUK2: BIT 7, (HL) 
O0Ce 2007 634 JR NZ,LUK3 sIF NO KEY STORED 
oocs = 28 635 INC HL 
00ls 35 636 DEC (HL) SELSE DECREMENT DEBOUNCE COUNT 
O0L7 «2B 637 DEC HL : 
oocs =. 2002 ect) JR NZ,LUK 
OOCA — 36FF bay LD (HL)»-1 $1F DEBOUNCE COUNT EXPIRED, 
ooce = 7D 640 LUK3: LD AGL 
oocD  21045¢C - 641 "LD HL, KSTATE+4 
oono BE 42 CPL 
OOD1  20EE £43 JRONZ,LUKZ © $60 DO OTHER KEYSTORE 
644 SNOW PROCESS CURRENT KEY 
ooUs CO3S01 R 445 CALL K_BASE 
oOODé BO 644 RET NC 
647 
648 3 ##ADDITIONAL 
OOLD7  FDCB30AE 649 RES 5, (1Y-Y+FLAGS2) SRESET “REPEAT UELETICN FLAG’ 
650 ae 
651 
OODB  21005C 652 LO HL. KSTATE 
OODE = BE 653 CP (HL) 
OODF  282E 654 JR Z,LUKS ;IF PRESENT KEY IS SAME AS IN 1ST KEYSTORE 
GOEL EB $85 EX DE.HL 
OOE2 21045C 654 LO HL» KSTATE+4 
QOES = BE t57 ~ CP CHL) 
OOEG = 2827 658 JR Z,LUKG sDITTO 2ND KEYSTORE 
OOE8 = CB7E &59 BIT 7, (HL) 
OOEA ©2004 460 JR NZ,LUKS sIF 2ND KEYSTORE EMPTY 
OOEC EB | 661 EX DE,HL 
OOED . CE7E 662 BIT 7, (HL) 
QOEF CS 663 RET Z 3IF NEITHER KEYSTORE IS EMPTY 
664 LUKS3 sHERE'TO INSERT KEY (BASE CODE A, 
645 s WHICH HL POINTS 
-OOFO SF 646 LO EA 
OOF1 77 &67 LD (HL)>A 
OOFZ 23 648 INC HL 
OOF3 34605 669 LO (HL), vEBDEL 
OOFS = 23 670 INC HL 
OOFS = 3A095C 671 LD A, (REPEL) 
OOFF 77 672 LD (HL)A 
OOFA 23 673 ING HL 
OOFB — FLI4E07 £74 LD C, (1Y+M0DE-Y) 
OOFE FDS6O1 475 LD D, (IY+FLAGS-Y) 
Q101 ES 476 PUSH HL 
Q102 CD4AGL R &77 CALL CHCODE 
108 EL 678 . POP HL 


CLEAR OUT KEYSTORE 


SHIFT B&) IN KEYSTORE Ta 


edi. 


I/O DRIVERS 


Loc 


0107 
O10A 
O10E 


QO1OF: 
Q110. 


O112 


0113 
0116 
0118 


O119 
QO11A 
O11B 
OLLIE 
OLIF 
O1Z20 


O1vz. 
0123 


0125 
O12Z9 
O12A 
o12D 
O12E 
O12F 
0130 
0132 
O133 


Q135 
0134 
Or393 
0139 
OLSB 
o1s¢c 
O13E 
0140 
0142 
o143 
Q146 


KSCAN PAG 


E 6. 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
. 82085C 680 LUKS7: LD (LAST_K).A 
FDCBOIEE = 681 SET KEYHIT, (1Y+FLAGS-Y) 
cs 682 RET : 
683 
624 LUK&s SHERE IF KEY WAS ALREADY PRESSED, WITH HL = KSTATE OR KSTATE+4 
685 “9 AS APPROPRIATE ee 
23 686 “INC HL ; 
3405 87 LD (HL), DEBDEL sRESET DESOUNCE COUNT 
23 683 INC HL ’ 
689 
690 ;#% CHANGE TO STOP PRINT PRINT ETC. 
BA085C 671 LD A,(LAST_K) = $FETCH ASCII 
FECE 692 CP OCEH 318 IT A TOKEN 
DO 693 RET NC sD0 NOT REPEAT A TCKEN 
694 5 aa 
695 
35 696 DEC (HL) 
co 697 RET NZ SUNLESS TIME FOR IT 0 REPEAT : 
SAQASC 693 LD Ay (REPPER) ' 
“99 &99 LD (HL).A sRESET REPEAT COUNT IF sO 
23 700 INC HL 
7E 701 LD A, (HL) ?PICK UP CHAR 
702 
703 + ## ADDITIONAL 
FEOC 704 CP OCH 31S IT “DELEIE’ rHAT IS BEING HELD DOWN? 
20E2 705 JR NZ) LUKE? 7NO 
706 
FDCB30EE = 707 SET 5, (1Y-Y+FLAGS2) +YES - SO SET THE FLAG 
KS: 708 PUSH AF +SAVE “A WHILST CREATING A DELAY 
01204E 709 LD BC, 20000 
OB 710 LUKS@: DEC BC 
79 711 LD AC 
BO 712 OR B 
20FB 713 JR NZ, LUKSS 
F1 714 POP AF 
18D2 715 JR LUKS7 
714 3 Ht 
717 
718 
719 K_BASE: sFIND BASE COVE FOR KEY 
720 sENTER WITH HE AS PROVIDED BY K_SCAN 
a4 +SETS NC IF NO CHAR KEY ELSE CARRY & A = CHAR COLE 
722 iPRESERVES CE, COPIES D INTO 8, SETS D=0 
42 723 LO B.D 
1400 724 LD DO 
7B 725 LD AVE 
FE27 726 CP 39 
Do 727 RET NC sIF NU KEY OR ONLY CAPS SHIFT 
FEI 728 cP 24 
2003 729 JR NZ»LUK4 +IF A CHAR KEY 
Ca78 730 BIT 7.8 sHERE WITH NC IF SYMBOLS SHIFT & NO CHAR KEY 
co THA KET NZ ;UNLESS CAFS SHIFT ALSO 
210000 ~R 732 LUK4: LD HL, KTABL 
19 73300 ADD HL, DE 


o® 6© ¢© 6 8 06 8 8® @ @6 me @& 6 a a“ fa & & C6 6 | 


> 


1/0 URIVERS KSCAN PAGE 7 
LOC OBJ COVE M STMT SQURCE STATEMENT : ASM 5.9 
0147, 7E, .. 734 LD As (HL) 

0148 37), 735 SCF - 


0149 co . 7346 RET 


ont 


re Mw 
I/O DRIVERS 


Loc, 


' 


O14A 
O14B 
o140 
O14F 
O150 
0153 
O155 
0157 


O153 


O15B 


o15c 
O1SE 
Q141 
0163 
0164 
O165 


O166 
O169 
O16B 
O140 
- O146F 
QO171 
O175 
0176 
0177 
0178 
O17A 


O17B 
0170 


O17E 
0180 
Q1is. 
0182 
0185 
O17 
O18A 
o018c 
OISE 
Q170 
O19¢2 
0194 
O19S 


KSCAN FAGE 8 
OBJ CODE M STMT SGURCE STATEMENT ; ASM 5.9 
737 #EJECT ’ 
728 
739 CHCOUE: $A t= CHAR CODE FOR KEY WITH BASE COVE E IN SHIFT B (-1 = 
740 - 3 NONE, 24 = SYMBOLS, 39 = CAPS) MODE C (0 = K ORL, 1 = E, 
741 $ 2 = G) WITH D HOLDING A COPY OF FLAGS THAT DISTINGUISHES 
742 ; K FROM L IF REQUIRED 
743 +BASE CODES ARE DIGITS, UPPER CASE LETTERS, SPACE, NEWLINE, 
‘ 744 3 AND "SET €& MODE" 
7b 745 - LD ADE 
FE3A 746 CP “9°41 
382F 747 JR CLECs 
oD 743 DEC Cc SHERE IF A LETTER 
FA66O1 74? JP My LOC4 SIF K OR L MODE 
2803 750 JR Z,LOC3 31F E MODE 
CG64F 751 ADD A,4FH '  $HERKE IF G MODE 
ce 752 RET 
753 ; 
21E6FF 754 LCC3! LD HL, KTAB2~’A- sHERE IF A LETTER IN E MODE 
04 7S5 INC B 
2803 756 JR Z,LCCz4 : 
210000 75:7 LD HL» KTABS-"A- $iF SHIFTED 
1400 75% LCC34: LoDo SHERE TO DO A t= (HL+A) & RETURN 
1? 759 AUD HL, DE , ‘ 
7E 760 LD A, (HL) 
Cc? Tél RET 
762 
212400 763 LCC4: LD HL, KTABS--A- sHERE IF A LETTER IN. K OR L MODE 
cB40 744 BIT 0B : ; : 
28F4 765 JR Z,LOC34 sIF SYMBOLS SHIFT 
CESA 766 BIT LMODE,D i 
280A 767 JR Z,LOC4S SIF K MOLE 
FOCE305E 763 BIT CAPS_L, (IY+FLAGS2-Y ) 
co 769 RET NZ sIF CAPS LOCK SET / 
o4 770 ING & 
CO 771 RET NZ 3IF CAPS SHIFT FRESSED 
C620 772 ALD A, 20H TELSE REQUIRE LOWER CASE 
Ce 773 RET . 
774 
C6A5 775 #LCC46: ADD A,0A5H sHERE TO CONVERT TO KEYWORD 
cy 776 RET ; 
777 
FE30 778 #(\LCCS: CP “or 
D3 779 RET C sIF SPACE OR NEWLINE OR "SET E MODE" 
on 780 DEC Cc SsHERE IF DIGIT 
FAB401 781 JP M,LCcs sIF K OR L MODE 
2019 782 JK ONZ2.LCC7 sIF G MOUE 
214F00 783 LO. HL, KTABS—"0" 
CHS 784 BIT 5.8 
2eD3 725 JR Z,LCC24 sIF SYMBOLS SHIFT 
FERS 726 CP “8- 
3007 737 JR NG, LOCSS 
D620 78a SUB 20H tHERE IF O-7 IN E MODE: CONVERT TO "SET FG COLOUR" cone 
04 7e7 INC B 
cS. 790 RET Z SIF NO SHIFT 


1/0 DRIVERS 


Lac 


0196 
O1ss 


O1LS9 
O1?B 
O19B 
O19eC 
O19D 
O19D 
O1L9F 


OL1A0 
O1AZ 
OLAS 
OQ1A7 
Q1LAY 
O1AB 
O1AL 
O1LAF 
O1BO 
QO1BL 
‘OLE3 


O1B4 
OLBS 
OLS 
OLES 
QO1RB 
O1BD 
Q1BF 
Q1c1 
O1C3 
O1es 
O1CS 
o1cs 


O1C9 © 


O1CB 


KSCAN PAGE 9 


OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
"cog 7P1 ADD AS SELSE, CONVERT TO “SET BACKGROUND COLQUR- 
cy 792 RET $IF CAPS SHIFT 
793 
D636 794. LCCSS: SUB “8°-LOL_KC HERE WITH A = “S° OK “9° IF E MOVE, UNSHIF IED OR CAPS 
73 SSERT HIL_KC=LOL_KC+1 ; 
04 796 INC B ‘ 
C3 797 RET Z - $1F UNBRIGHT OR RRIGHT (UNSHIFTED) & 
793 ASSERT FSH KC=STY_KC4+1 : 
C4FE 729 ADL A, STY_KC-LOL_KC SCONVERT TO UNFLASH OR FLASH (SHIFTED) 
Cc? Goo RET 
G01 
212B00 R 802 LCC7: LO HL» KTAB4—"0~% | sHERE IF DIGIT IN G MODE 
FE39 80O3 CP “9° 
ZEBRA 304 JR Z,LOC34 
FEO B05 CP “O° 
23B46 5046 JR Z,LCOCS4 
E407 £07 AND 7 : #HERE IF DIGITS 1 TO & IN G MODE 
C680 cog ADD A, S0H SCONVERT TO MOSAICS S1H TO 87H AND 80H 
o4 , 809 INC B 
ce S10 RET Z - $IF NO SHIFT ; 
EEOF S11 XOR OFH 3ELSE CONVERT TO INVERSE - 
cy S12 RET ; 
813 
04 $14 Lecce: Inc B SHERE IF DIGI? IN K OR L MOLE 
cs 315 RET Z sIF NQ SHIFT 
Ch4S8 S16 BIT 5,8 $Z IF SYMBOLS SHIFT, NZ IF carps 
212800 R &17 LD HL»KTAB4—"0" HHERE WITH A = BASE CUDE. NZ IF CAFS ELSE SYMBOLS 
20A4 213 IR NZ,LOC34 : 
D610 819 SUB 10H . SCOUNVERT TO SYMBUL 
FE2Z2 220 CRs - 
2804 21 JR Z,LCCSSs 
FEZO i ri CP of ¢ 
co $23 RET NZ 
SESF 824 Lio A.“_” 
co S25 RET 
126 
3E40 827 LCCS8: LO A,“@’ SSHIFT 2 IS “@’ INSTEAU OF -"- 
cy S23 | RET 


LOUDSPEAKER KSCAN PAGE 10 
LOc'- OBJ CODE M STMT SOURCE STATEMENT . ASM 5.9 
: S29 -#HEADING LOUDSPEAKER 
830 
&31 PARP: SOUTPUT DE+1 CYCLES OF A IONE WITH PERIOU SNt+236 TO SN+246 
' " 832 3 T-STATES UR CI6N+4721/7 TO C16N+492]7/7 MICROSECONDS. 
833 sENTER WITH HL=N 
; ' 834 SSMASHES IX : 
o1cc F3. S35 DI : é 
B34 s### HERE DISABLE NMI’S 
o1co 7D &37 LD AL 7 
O1ceE CB3D 833 SRL L . 
O1no CE3D aap SRL L s3L t= £CON/4)] MOD 64] 
O1lu2 2F ' 840 CPL 
0103 E403 S41 AND 3 
0105 4F 842 Lo c,A 
O10 0400 843 LD BO s$BC s= 3 —- CN MOD 4) 
o1ne DNZIESO1 R844 LO 1X,LPP3 
ao1nc DDO? $45 AOD IX,8C 
O1DE 2A48SS5C S44 LD A, (BORUCR) — 
Q1E1 E438 247 AND 7.SHL. BACKG 
O1ES3 OF 843 RRCA 
O1E4 OF 849 RRCA 
OL1ES OF $50 : RRA 
QLES F408 S51 ~ OR So sSET BIT 3 TO MAKE TAPE OUT INACTIVE 
O1ES (aTe) S52 LPP3: Nor 
OLE? ao @53 Nor 
O1EA aod e354 NOP 
e55 7A = VALUE TO WRITE TO OUTPUT PORT, N = 256H+4L4+C0%-1X1], 
Shs 3 DE = CNUMBER OF CYCLES STILL TO HO] ~ 1, &648+C = NUMBER 
357 H OF 16-T-STATE DELAYS THIS TIME (A SMALL NUMBER THE FIRST 
S53 H TIME ROUND), APFRUFRIATE NUMBER CF NOPS ALREADY DONE 
O1EB 04 S59 INC B ; 
O1EC oc €60 INC C 
841 
862 LPP4: 
O1ED op: S63 Dec ¢c 
O1EE 20FD 8464 JR NZ ,LPP4 
Q1FO OE3F S45 LO C,463 
QLF2 O85 B44 DEC B 
O1F3 C2EDO1 R &67 JP NZ,LPP4 
OLFS EE10 645 XOR 1.SHL.4 
O1FS DSFE S49 QUT (GQLPORT).A 
O1LFA 44 870 LO BH 
O1LFEB 4F S71 Lo c.A 
O1FS CEG7 872 BIT 4,A 
OIFE 2009 #73 JR NZ LPPS 
OZ00 7A 374 LO A.D 
O201 B2 8/5 OR E 
0202 2309 S746 JR Z,LPRPS 
Q204 7? 877 LD A.C 
0203 4D 873 LO CLL 
0206 tB £79 DEC DE 
0207 DOE? S20 JF CIX) 
aot 
S32 LPPS 


‘LOWDSPEAKER ., 


Loc 


0209 


020A 
020B 


o20Q 
O20E 


O20F 
0210 

211 
Oz12 
0213 
0214 
0215 
0216 
oz18 
O21A 


O21B © 


a21c 
o21D 
O2Z1E 
O221 
O222 
O223 
O2z5 
O224 
O227 
0223 
OZz9 


O22 


. O22B 


N22 
o220 
OQ22F 
Q230 
O231 


0233 | 


O234 
0236 
O239 


O23C 


O23E 
O23F 
o241 
0243 
0245 
O244 
o249 
o24c 


O24F 


O20 


OBJ CODE M 


E23 302 
O6FA 


04 
p40 
3OFB 
céo0c 
CS 
218502 
Cphoe00 


ChOa0d. 


EF 
04 


Dw 


<< D 


KSCAN 


STMT SOURCE STATEMENT 


$383 
834 
ess 
eas 
827 
eee 
gag 
avo 
S71 
e72 
B93 
B94 
295 
as 
897 
ave 
379 
200 
901 
902 
$03 
904 
905 
706 
907 
pos 
S09 
910 
911 
912 
913 
914 
$15 
916 
917 
913 
o19 
920 
921 
922 
923 
I24 
925 
726 
927 
928 
S27 
920 
931 
Bz 
223 
934 
235 
934 


_LPPS 


BEEP 


LBPS 


LEPS2 


LO CL 
Inc C 
Jr ¢CIX) 


ex 
RE1 


RST CALCTR 
DEFB TLILP 


- DEFB INT 


DErB COPY+O 
DEFB SUB 
DEFB LITERAL 
DEFER .RES. (44+0COH) 
DEFW 9S6CH 
DEFW OF 31FH 
DErFB TIMES 
DEFR CONST+1 
DEFB AUD 
DEFB QUIT 

LD HL»MEMBOT 
LD A, CHL) 
AND A 

IR NZ,ERRB 
INC HL 

LO C, (HL) 
INC HL 

LO EB, (HL) 

LO A.B 

RLA 

SBC A:A 
crc 

JR NZ,ERRB 
INC HL 

CP (HL) 

JR NZ,ERRB 
LO A.B 

ALL A,é0 

JF PL LBFS 

JP FPO, ERRB 


LD B,-4 


INC B 

SUB 12 

JR NC, LBPS2 
ADD A,12 
PUSH BC 

LD HL, GAMUT 
CALL ARRAY 
CALL STK_M 
RST CALCTR 
DEFER TIMES 


PAGE 11 
ASM 5.9 


+» LOUDGPEAKER KSCAN PAGE 12 


1+ LOC | OBJ CODE M STMT SOURCE STATEMENT ; ASM 5.9 
0251 1,33 937 DEFER GUIT 
o252 .Fl 933 POP AF 
O252 .. 86 939 ADD A, (HL) 
0254 77 240 LD (HL)»A 
o255 EF ‘ OAL: RST CALCTR 
O254 | CO 942 DEFB COPY+0 ; . 
0257 . o2 942 DEFB LOSE & 
ozse 31 244 DEFB DLP . 
o259 .,39 945 DERE Gut 
O25Q ,CLOOQO xX 344 CALL FIX_U1 
ozSD FEOB 947 cP 14 
O25F 3022 942 JR NC. ERRB 
0241 EF 949 RST CALCTR 
0242 EO 950 DEFB MEMORY+0O 
O243 . 04 Sit DEFB TIMES 
02464 = EO IS2 QEFB MEMORY+0 
O2465 34 953 DEFB LITERAL 
0246 80 954 DEFB SOH 
0267 43, 955 DEFB &7 
0268 SSOF 956 DEFW 9FSSH 
0240 80 957 . DEFB 80H 
“0268 O1 | 953 DEFB EXtH 
O2z60 OS 959 ‘ “DEFB DIV ; 
O24D 34 M60 DEFB LIVERAL 
O26E 35 S61 DEFB S32 
O24F 71 Wed WEFB 74H 
0270 3803 963 DEFB stn 
0271 «38 Fh HERB QUIT 
0272 CnOO0OQO xX 65 . CALL FIX.U 
0275 «C5 944 PUSH BC 
0274 CDOOQO xX 967 CALL FIX_U 
0279 «£1 , 968 POP HE 
027A Sa 96F LO OB 
0278 S9 970 LOE. 
G270 7A 971 LO ALD 
O27D 8B 972 OR E 
O27E Ca 973 RET Z 
O27F 416 _ 974 Dec Oe : 
oz80,06 CBCCO1 OUR O975 JF PARP ‘ : 
976 . 
O283 CF 977 ERRBt RST ERROR 
284 A . 973 DEFB 10 
979 
930 GAMUT 
o285 89 981 ' DEFB 137 
‘0284 o210 922 DERW OD002H 
O28 1286 DE3 HEFW S612H 
SA sy PE4 DEFB 137 
OZER 0AR7 985 DEFW 270AH 
OzeD = 6075 ISG DEFW .75460H 
OZEF go 937 CEFR 137 
0290  13En5 933 LEFW O0S12H 
O292 LZIF 9a DEFW 1F1/H 
0294 8D 220 HEFE 137 


LOUDSPEAKER 
OBJ COLE M STMY SOURCE STATEMENT 


Lac - 


02953 
0297 
0299 

237A 
o27C 
O29E 
O29F 
O2A1 
OZAS 
OZA4 
aZA6 
O2A2 
OZA9 
OZAB 
OZAD 
OZAE 
O2ZBQ 
O2H2 
O2ZB3 
O2BS 
OZE7 
OZBS 
O2B8A 
O2BC 
O280 
OZBF 


azel 
O24 
O27 
o2cs 
o2CB 
o2ce 
o2cD 
O2CE 
o2n1 
O22 
0203 
. O24 
, O25 
oO2n4 
O20 


X\XN 


0000 
Sy 
GP14 


Fe24 


ey 
76F 1 
1005 


CDO00O 


991 
992 
993 
O94 
295 
934 
O97 
DS 
VPD 
1000 
1001 
1002 
1003 
1004 
10035 
1004 


1007 


1003 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1014 
1017 
1016 
1019 
1020 
1021 
19022 
1023 
1024 
1025 
1024 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
10:37 
102338 


LSNAME 


KSCAN 


DEFW 
DEFW 
DEB 
DEFW 
EF W 
DEKFE 
EF W 
DkKFW 
DEFER 
DEF W 
DErW 
DEFB 
DEFW 
DEFW 
DEFaS 
DEFW 
DEFW 
DEFE 
DEW 
DEFW 
DEFB 
DEFW 
DEFW 
DEFEB 
Dery 
DEFW 


CALL 


LO A, (FLAGS) 


ALL A 
JPM, 
FOP H 


901BH 
O241H 
127 
OD024H 
OCASZH 
137 
PONZEH 
OBL3S6H 
137 
OFF 33H 
SE49H 
137 
OFF 43H 
734AH 
127 
QA74FH 
S400H 
137 
Q0OSCH 
6) 

1:37 
1449H 
24F4H 
137 

OF 176H 
OS10H 


EXPRN 
aA 


SYNERR 
L 


RET NO 


PUSH 

CALL 

LD H, 
LDL, 
DEC C 
RET M 
AnD H 
SET 7 
RET 


HL 
POPSTR 
+) 

E 


LBC 
> CHL) 


PAGE 
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ASM 5.9 


: ie eee ees . 
X\X\ | PAGE 1 . ; 
‘LOC OBI CODE M STMT SOURCE STATEMENT ASM 5.9 
1 #HEADING TELEVISION , 
in 419 #LIST ON 
' 420 
A2i GLOBAL SETTVC, SENDTV, CLS, CLLHS, ERRS, SETCUR, PR_TV2, STTVCU, LDTVCU 
, 422 GLUBAL R-ATTS, PUTMES, K_CLS, TVFUL?, ATTBYT, CLS_B 
; 422 GLOKAL FLLFT, PRT,» PLNL, SET_AT, SCRL 
424 - : 
425 EXTERNAL TOKENS +BASIC 7 
426 EXTERNAL DUMPPR,ROCH, INK ;10_2 
427 EXTERNAL SELECT sELIT 
, 42% EXTERNAL ERRB 3 SYNTAX 
42? EXTERNAL TV_COL ; 3 SYNTWC 
430 j , 
431 
432 SENDTV: #WRITES CHARACTER FROM A TO DIPLAY FILE OR PRINIER. 
432 sUSES & UPDATES (S_POSN) & (UF_CC) UR THE CORRESPONDING 
434 ; VARIABLES FOR THE LOWER HALF (SPOSNL & DFCCL) OR THE 
- 435 3 PRINGQER (PLPORSN & FROCC), 
43. 7S_POSN (ETC) HOLDS LINE #.GF PRINT CURSOR IN MS BYTE 
437 3 (TV_LNS = TOP, 1 = BOTTOM), CHAR # IN LS SYIE (ILLLEN+1=LH, 
43 ' 2 = RH, 1 = TERMINATUR - I.E. A FULL LINE HAS BEEN PRINTED 
42 i & THE CURRENT POSITION 1S fHE 1ST PLACE GM THE NEXT LINE, 
440 ; BUT NL IS NOT TO THROW A BLANK LINE). 
441 SUSES AYF’ 
0000) «6 CDIAQL ORR 44 CALL LDOTVCU 
443 Lsv2: HERE WHEN CONTROL CHAR, PRINTABLE CHAR, OR TOKEN/GRAFHIC 
444 +BCDEHL AS AFTER LOTVCU 
0003 FEZO 445 cP 7’ ¢ 
oooS O2F0Q0 R 444 JP NC» LSV7 
: 447 
44% $##% ALIDITICONAL CODE FOR DELETE 
o0o8 FEQOC 449 cP OCH sDELETE KEY? 
000A 2007 450 JR NZ,SENDT 3IF NOT, KEEP GOING 
-Q00C FDCBO1LES 451 BIT 4, (1Y-Y+FLAGS) 3K MODE? 
0010 CAFOOO R452 wp Z,LSV7 s YUP, 
453 3 at 
454 é 
' 455 sHERE WHEN CONTROL CHAR 
0O13 FEOS 454 SENDT: CP COoM_cc 
oO15 = 3849 457 JR C,POLIGN sI1F CONTOL CHAR UNRECOGNIZED BECAUSE TOO SMALL 
0017 FELS 4sie CP TABLCC+ 
OO19 3065 45% JK NC,PLIGN SIF CONTROL, CHAR UNRECOGNIZED BECAUSE Too BiG 
OO1B 212200 R 460 LO HL, TVucc-comice SHERE WITH A = CUNTROL CHAR (4 10 1/H) 
OO1E SF 441 LO ELA 
OO1F 1400 4&2 Lo m0 
0021 19 443 Ang HL» DE 
Qozz SE 464 LOE» (HL) 
ooz3 19 445 ADD HL, DE 
0024 = ES ALS PUSH HL 
ooz5 CRIACL R 447 JP LOTVCU SWILL CONTINUE WITH ROUTINE TO DEAL WITH CONTROL CHAR 
468 
467 TV_CCr SRELATIVE ADDRESSES OF SUBROUTINES FOR CONTROL CHARS AS USED 
470 : BY THE TV SCREEN 
0028 4£ 471 DEFR PLCOM—% + 06 ACK - PRINT COMMA 


e & a. a 


wi 


on i 
j 


TELEVISION 
OBJ CODE M STMT SOURCE STATEMENT 


Loc 


029 
OOZA 
002B 
O02 
ooznr : 
O0ZE 
OOF 
0030 
Ooz1 
aN32 
O033 
O024 
oos3s 
0034 
O027 
0038 
0039 


~ O03A 
O028 
o0o3D 
OO3E 
0040 
0044 — 
O04 
0047 
0049 
O04H 
a04t 
OO04E 
OO4F 
OoO31 


O084 
0057 
o0sg 
e0sC 
OOsE 
0041 
O042 
065 


0066 
OosA 
0060 
QO6F 
Q0O72 
Q073 


ac 

SEZ2 

BP? 

2011 
FOCBOL4E 
2009 


04 


O02 
SE19 

BS 

2003 

05 

OE21 
C31404 oR 


SAP1SC 

FS 
FDO345701 
SEZO 
COrFOOO R 
Fi 

329150 

cy 


FOCEOL4E 
C20000 Xx 
QEZ1 
CLP002 R 
OS 

C31404 R 


472 
473 
474 
475 
476 
477 
473 
47? 
480 

S1 
432 
483 
434 

a5 
4s 
437 
433 
4p 
420 
4@1 
42 
493 
494 
495 
4v 
497 
49a 
4oy 
500 
S01 
S02 
S03 


S04 


Sos 


SOG 
507 
SO 
SOF 
S10 
Sil 
S12 
S13 
514 
S45 
S14é 
S17 
S12 
ol? 
S20 
S21 
maz 
223 
m24 
S25 


P_LFTS 


LPTé: 
LPT7: 


PRT! 


PoONLe 


Io_1 


DEFB 
DEFER 
DEB 
DEFB 
DEF R 
DEFR 
DEFB 
DEFER 
DEFER 
DKFB 
DErR 
DEFB 
DEFE 
DEFB 
DEF E 
DEFE 
TEFB 


Inc c 
LD As 
cP Cc 

JR NZ 
JR NZ 


ING & 
LO, 


LD A, TV.LNS+1 


CP B 

WR NZ 
DEC B 
LO tC, 
JP SE 


LD A» (PFLAG) 


FLUSH 


P_IGN-% 
PLLFT-$ 
PLRT-$ 

P_IGN-$ 
P_IGN-% 
P_IGN-% 
PLNL-$ 

P_IGN-$ 
P_IGN-4% 
PLCOL-$ 
PCL —$ 
PUCOL-$ 
PUCOL-$ 
PUCOL-$ 
PLCUL-4% 
PLAT-% 


PLAT-$ © 


wa we ws we ve we ve we ve we we us we ws ve ue ve 


ENTER THESE 


3 


SBACK SPACE 


LLEN+2 
»LPT7 
+L PTS 


2 
“ 


oLPT7 


LULEN+1 
TTve 


PAGE 2 


ASM 5.9 
BEL ; 
BS - CURSOR LEFT 


HT ~- CURSOR RIGHT 


CR ~ NEWLINE | 


ULE — FORE 
0C1 — BACK 


NAK -— OVER 
SYN - AT 
EB - TAB 


ROUTINES WITH A = CONTROL CHAR & BCHL SET UP AS 


BY LOTVCU, 


SUNLESS OFF BEGINNING OF LINE 
BIT PR, (IY-Y+FLAGS) 


3 ## ADDITIONAL 


SUNLESS OFF TOP UF SCREEN 


MOVE PRINT POSITION ON, CHANGING ATTRIBUTES BUT NOT CHAR 


AF 


LD (IY-Y+P_LFLAG).1.SHL. XOR_CH 


LO A, 
CALL 
FOr A 


RET 


SPACE 
LSV7 
F 


‘LD (PFLAG) A 


BIT FR, (1Y-Y+FLAGS) 
3IF PRINIER 


JP NZ 
LO Cy, 
CALL 

DEC B 
JP Se 


> DUMPFR 
LLEN+1 
TVFUL? 


TTVe 


3 ## ADDITONAL 


TELEVISION Id PAGE 3 


LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
S26 P.cCOM: : - $PRINT COMMA 

0076 327 ASSERT L-LEN=32 

0076 CDLAOL R 523 CALL LDTVCU 

0079 7? S29 LO A.C 

Q07A° 3D * S30 DEC A 

007B 30 S31 DEC A 

oo7c Eé10 332 : AND 16... é 

OO7E 135A S33 JK WR_TAB 
334 . 
S35 PLIGNs : sFOR UNRECOGNIZED CONTROL, PRINT *?° 

O080 SESF S36 ; LD A.“?? 

0032 13é6C S37 JR LSV7 : 
Sf 
S39 SuTVu2: ‘SHERE WHEN BYTE IS 1ST DATA BYTE OF A 3-BYTE COMPOSITE CHAR. 
540 3 (I.E. 2 BYTES NOT YET DEALT WITH, THE CURRENT ONE BEING 
541 5 THE FIRST OF THEM). 
S42 SENTRY I5 EFFECTED B&Y HAVING THE KEYBYTE CHANGE THE WRCH 
543 3 ADDRESS OF THE CURRENT CHANNEL (Kk, S OR F),. 

0084 119E00 R 544 LD DE,S_TVi1 . 

0087 320F SC S45 LO (TVLATA+1),A s(TVUATA+1) #= 1ST DATA BYTE. 

QO3A 130B S46 JR LECS ; 

f S47 

S42 PLAT# - sHERE TO DEAL WITH CONTROL FOR AT OR TAB 

008c 118400 R S49? LD DE,S_TV_2 FUNUSUAL WRCH AUDRESS FUR CURRENT CHANNEL 

QOBF 1303 ' S50 JR LPCZ2 
bai | ’ 
S52 PoCOL: sHERE TO DEAL WITH CONTROL FOR FORE, BACK, FLASH, BRIGHT, 

: . So3 3 INVERT GR OVER. 

O09 1 119E00 R S54 LD DE,S_TV1 SUNUSUAL WRCH ADDRESS FOR CURRENT CHANNEL 

0094 S20ESC S55 LPCz: LD (TVDATA),A S(TVDATA) = KEYSY'E OF COMPOSITE CHAR 
S34 LPC3: SHERE TO REPLACE WRCH ADDRESS OF AFFROPRIATE CHANNEL (kK, S OR 

, S57 5 P) WITH DE 

0097 ZAS15C Soo LD HL, (CURCHL) 

OO9A 73 baba LD (HL) E . 

QO9B 23 ; 540 * INC. HL 

e09c 72, Sé1 LO (HL),D 

0O7D cy? S462 RET 

, 5463 

564 S_TV1t iPROCESS FINAL DATA BYTE FCR A COMPOSITE CHARACTER. - 
565 3(TVDATA) = KEYBYIE, IF AT OR TAB (TVDATA+1L) = 18ST DATA BYTE. 
564 5A = LAST DATA BYTE. 
S47 SENTRY HERE IS MADE BY HAVING THE WROH ADDRESS FOR THE CURRENT 
S68 3 CHANNEL (KEK, S OR P) CHANGED, 

OOP?E 110000 Ro 549 LD DE, SENDTV 

OOAL CD?700 R 370 ’ CALL LPS SRESTORE USUAL WROH ADDRESS 

O0A4 ZA0ESC S71 LO HL,» (TVDATA) $L &= KEVYEBYTE, H t= PENULTIMATE DATA BYTE (WHERE 

QOA7 a7 S72 LO DLA H AFPROFRIATE). 

OAS 70 573 LD A»L 

O0AP? FE14 574 CP ATUCC : 

QOOAB DAQGOO X S75 JP oC, TV COL 3IF FORE, ... OR OVER. 

QOAE 2029 - S746 WR ONZ»LS13 3IF TAR 
377 SHERE TO EXECUTE AT CONTROL: H = LINE, D = COLUMN 

QOBO 44 573 LO ELH 


OORL 4A S79 LD C.D 


TELEVISION 10.1 PAGE 4 


LOC OBJ CODE M STMT SGURCE STAIEMENT : - ASM S.9 
580 SET_AT: 3SET PRINT POSN TO'BC AS FORK PRINT AT B.C. 
Sal + B= 0 FUR TOP LINE, C = 0 FOR LEFT HAND CULUMN, 
COB2 3E1F 5o2 LD A,L_LEN-1 
OOR4 91 533 SUB C 
OOR5S 320c 534 JR CLSAS +WHENCE ERKOR B 
OOB7 C402 Se5 Ann A»2 . 
OOH? 4F SS6 to c.A . s 
OOBA = FLICBOLAE 587 BIT PR» (IY-Y+FLAGS) 
OORE 2016 See JR NZ,LSAS ° 
OOCO SE14 say LOD A» TV_LNS-2 
corz 90 590 SUB B 
oocs DAGGQO XxX SPL LSA3: WIP C,ERRB sIF B > TV_LNS-2 
o0ce =. BE S92 INC A 
QOL7 =A? S73 LO B.A 
oore 04 574 INC B 
ooc? FRCBOZ46 © S95 ‘BIT LHS, (1LY-Y+TVFLAG) 
oocD CzZ7002 R 5% JP NZ. TVFUL? 
OOnd  KFLBESL 57 CP (IY-Y+0F_SZ) 
oops Macioz R s98 JP C,ERRS $IF IN BOTTOM PART OF SCREEN 
cong = Cs1404 R 599 LSAS! UP SETCUR 
. 600 
401 Lis sHERE TO EXECUTE TAB CONTROL: H = LS, D = MS BYTES OF TAB POISN. 
oon? 602 ' ASSERT L-LEN=32 ; : , 
oo”e =. 7C 403 LD A>H 
604 WKTABS : iTAB AS FOR TAB A, BY WRITING SPACES 
605 3NB O <= A <= L_LEN-1 
GonA 606 ASSERT L_LEN=32 
CODA = CDIAGQL R 607 CALL LDTVCLU 
ty 3 608 sLET C’ = 33-C, THE TAB VERSION OF THE COLUMN NO., & LET 
mt GOR. ; AY =A MOD 32. 0 <= CY <= 92, O <= AY C= BL, 
610 _ © $IF A’ >= C*, THEN NO. SPACES TO BE OUTPUT = Av-C* = Av +C~-33 
$11 ; - AtC-1 (MOD 32). C’_” HERE MEANS “IS CONGRUENT To.) 
612 $IF AY € CO’, C* <> 32, THEN NO. SPACES = C-1 TO COVER Ur To ENU 
613 3 QF LINE, THEN AY’ fO GET Ta RIGHT TAB POSN: IN ALL, A‘+C-1 
, 614 ; - AtC-1 (MOD 32), 
, $15 sIF C“=32 THEN COUNTS AS 0, SO NO. SPACES = AY = Av+C-1 
616 3 - AtC-1 (MOD 32), 
617 sTHUS IN ANY CASE, NO. SPACES _ AtC-1 (MOD 22)5 & SINCE IT LIES 
61% ; BETWEEN O & 31, IT MUST BE (A+C-1) MOD 32, 
coup 8 619 ADD AC 
.OODE 3D 620 DEC A 
OODF E41F 621 AND 31 
OOEL cs 622 RET Z 3IF NO MOVEMENT REQUIREU 
QOEZ S87 1 623 LO DA!!! 
OOE3 FDCBOICE 424 SET SFC, (IY-Y+FLAGS) 
OOE7 BEZO ° 623 LWA2! LDA, ” 
GOOEY CL7602 R 626 CALL FR_TV2 
QoOEC 15 b2 DEC o 
OOED 20Fs 62% JR NZ,» LWH2 
OOEF CF © $29 RET 
oa 630 
OOFO COBBOL R 631 LSV78 CALL PRITV ; 
Pd, 63% STTVCUR ISTORE TV CURSORS 


633 “$(S.POSN) OR (SPOSNL) t= BC OR (PLPCSN) t= 0, & 


‘'' TELEVISION To. : PAGE -S 


“ROC (OBI 'COWE'M STMT SOURCE STATEMENT ASM 5.9 
634 ‘ 5 (DF_CC) OR (DFCCL) OR (PRICC) := HL. 
é35 SPRESERVES ASCUEHL 
OOF3 ‘'FDCBO14E 636 BIT PR, CIY-Y+FLAGS) : 
GOF7 BOA &37 JR NZ,LSU7 3IF PRINTER 
' GOF? FOCBO246 633 BIT LHS, (1Y-Y+1TVFLAG) 
QOFD § 2008 é39 JR NZ,LSUS IFUR LOWER HALF UF SCREEN 
OOFF JED4a2e5c &40 LO (S_FPOSN), BC ‘ 
Q102 | 1225460 641 LO (DF_CC). HL 
0106 ce, 642 RET ‘ 
iA 643 


O107 ED433aA5C 644 LSUS: LO (SPOSNL). BC 
O10B “ En4ass25c 6435 | LO (ECHO_E), BC 


O10F 228450 644 LO (DFCCL) sHL 
o112 C9 La7 RET 
648 
o113 | -FD7145 649 LSU7! LD (IY-Y+P_POSN)+C 
O116  22808C + = 450 LO (PRICC) HL 
O19 ce 651 RE 
652 : 
653 LDTVCu: sLOAD TV CURSORS 
454 3BC t= (S_PUSN) (ETC), HL t= (OFLCC) (ETC). 
655 ;PRESERVES A 
O11A FDCBOI4E = 454 BIT PR» (1Y-Y+FLAGS) 
O11E ©2014 657 JR NZ,LLU7 +IF PRINTER 
0120 EDIESESC 458 LD BC, (S_POSN) 
0124 = zaB45C 459 LO HL, (DF_cc) 
O127  FOCBOZ4S = 840 BIT LHS, (1Y-Y+TVFLAG) 
O12B Cs bol RET Z ¢IF UPPER HALF 
O120 «~ED4BSASC 442 LD BC, (SPOSNL) 
0130 © 2Ag45C 663 LO HL, (OFCCL) 
0133 oc? 644 RET 
£65 ; 
0134 = FD4E45 664 LLU7? LD C, (1Y-Y+P_POSN) 
0137 2Ag08C £47 LD HL, (PR.CC) 
O1saA ce 668 RET 
469 ; 
670 PRTV: sSUBROUTINE TO PRINT CHAR A. 
671 7BC = VALUE FOR (S_POSN) OR (SPUSNL), HL = VALUE FOR (DF_CC) oR 
472 — (DFCCL) 
673 sUSES A‘F* 
674 ; 
675 ### ADLITIONAL COVE FOR ADDED TOKENS - FUNCTIONS 
67% 
0138  FEOC 477 CP OCH ¢1S IT DELETE? 
O13D =. 2004 678 JR NZ»PR_TVO 
‘O13F = 3E7A &79 LD A, 7AH sFOKCE TO 7AH 
0141 1851 480 JR LPV4 
6a 
0143 FETC 682 PR.TVO CP 7CH +18 IT STICK 
o145  2e4n 683 JR Z,LPV4 
0147 ~FE7E 684 cP 7EH ¢1S IT FREE 
O149 9 Bea a5 JR ZLPV4 
686 


O148  FE7B 687 — CP 7BH SLOWER LIMIT 


TELEVISION | 10.1 PAGE 6 

LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.¢ 
O14D = SB0A 6ee R Cs PR_TVB 
O14F . FESO, . 689 CF SOH © SUPPER LIMIT 
OSL 3006 670 JR NC. PRTVB 

et ae ott 691 

Q153 . FICEO16S 492 BIT 4. (1Y-Y+FLAGS) SIF IN K MODE THEN PRINT-IT AS A TOKEN 
0157 2836 $93 JR Z>LPV4. ; : 

674. ° $e . 
0159: FESO 695 PRTVB: CP SOH ’ ‘ 
0153 82D 696 JR C)PR_TV1 sIF ASCII CHAR Ps 

- 697 SHERE IF GRAPHIC (STANDARD OR USER-DEFINED) UR TCIKEN 
o1sD 693 ASSERT STU_GR=30H 
O1SD FESO 699 CP UD_GR 
OSE 3026. 700 , JR NC, LPV3 SUNLESS STANDARD GRAPHIC 
O16 47 7OL LD BLA $B = CHAR CODE 
162, CD4NO1., R 70% CALL LPV27 
O145 COIAOL R 03 CALL LDTVCU 
0168 11925C 704 LO DE, MEMBOT 
O16B 1847 705 JR LPVS 
706 
707 LPV273 ;SUBROUTINE TO CONSTRUCT STANDARD GRAPHIC IN CALCTR MEMORY. 
708 3B = CHAR CODE 
O16y. 21945C.,. 709 -LD HL» MEMBOT - 
0170 ©«6©CD7301, R 710 CALL LPV272 SNOW DO THE REST TWICE, ONCE FOR EACH HALF OF THE CHAR 
O173 CBIe 711 LPV272: RR B 
o175 | OF 712 SBC ALA 
0174 E6OF 713 AND O0001111B 
0173 4F 714 LO C.A sC NOW OK IN RIGHT HAND QUARTER 
0179 ° CRIS 715 RR B 
017B SF 714 Sec ALA: 
o170 «= ESFO 717 AND 11110000B $A OK IN LEFT HAND QUARTER 
C17E BL . 718 oR C 3A t= BYTE FOR SCAN O OR 4 
O17F . OEO4 719 LD C.4 $C t= SCAN COUNT 
o1g1 77 720 . LPV274: LO (HL) +A 
o1g2 23 7214 INC HL 
0183 On 722 DEC C 
O124 20FB 723 JR NZ» LPV274 
0186 8=cy 24 RET 
725 
0187 BAS 726 LPV3: SUB TOKO 
o1g9 3009 727 JR NC, LPV4 3IF TOKEN 
O1sR C415 723 ADD A, TOKO-UD_GR SHERE IF USER-DEFINED GRAPHIC 
o1sp) | OCS 729 PUSH BC 
O1gk . EL4B7B5C 730 LO BC, (UDG) 
o192 1808 , 731 dR LPVS 
: 732 
o194 cp4soz R 733 LPV4: CALL PUTSYM SHERE IF TOKEN 
0197. CB1IAQ1 = R 734 JP LOTVCU 
7235 
726 PR.TV18 3AS PRTV, BUT AT THIS STAGE THE CHAR A MUST BE A SINGLE 

137 F PRINTABLE CHAR. 
019A OCS 733 PLUSH BC 
O19B ED4E345C 739 LD BC. (CHARS) 

; 740 LPVS: SHERE AS PR.TV1, BUT WITH SCREEN COORUS SAVED ON STACK & 

741 


3 BC -> BASE OF CHAR Sér (OF WHICH WE WANT ATH CHAR). 


O1EB 


Ep 


TELEVISION 
LOC ORY CqnE mM STMT 
O19F EB 742 
0100 213B5C 743 
‘O1A3 ° CBES 744 
O1A5  FEZ20 745 
O1A7 | 2002, 746 
O1A2 ~~ CBCS 747 
‘C1AB = 2600 742 
Q1AD  éF 749 
O1AE | 29" 750 
O1AF 29" 751 
Q1B0 | 29 752 
O161 OD 753 
O1B2 ‘C1 754 
0183 EB 755 
= ‘ue Gg 786 
PN 757 
O1B4 79 758 
‘O1BS = 3D 759 
“O1HS = SE21 760 
O1BS 200E Jed 
O1BA OS 742 
O1BB 4F 743 
‘O1BC = FUCBOL4E, = 744 
O1CO | BO 765 
o1c2 oS Tbh 
o1c3  chon0g0 xX 747 
o1cé = 4. 743 
o1c7. 79 769 
o1c3 «BD 770 
o1c9. D5 . FT% 
O1CA cC9002 R 772 
o1cD DA 773 
774 
775 
ve 776 
O1CE cs , 777 
O1cF ES 773 
o1no 77? 
o1po =. BA915C 780 
O103 OéFF 71 
.O1DS AF, 782 
O1D4 3801 723 
O108 04 ut veo 78 
O1n9 fF 785 
O1DA oF 784 
O1UR OF | 787 
o1Dc | 4F Eats) 
o1nD E08 Tao 
O1nF a7 730 
O1EQ FDCKHOL4E 771 
O1E4 «= 2205 792 
O1ES FDCHSOCE 793 
O1EQ = 37 794 
775 


Io_t PAGE 7 


SGURCE SfATEMENT : ASM 5.9 ; . 
. EX DE,HL , SDE ¢-> POSN IN DISPLAY FILE 


LD HL, FLAGS 
RES SPC, (HL) 

cet 4. 

JR NZ» LPVS2 sUNLESS SPACE! 

SET SPC (HL) = '$ THEN SUPPRESS {NITIAL SPACE IN FOLLOWING TOKEN 
LPVS2: LD H,0 
LD L.A 
ADD HL HL : 7 
ADD HL HL 
ADD HL» HL 
ADD HL, BC sHL t-> DOT PATIERN IN CHARACTER SET 
POP BC 
: EX DE. HL 
LPV6s _ $HERE AS PR_TV1, BUT INSTEAD OF A WE HAVE DE -> BIT ROW IN 
; ; CHAR SET 


« 
‘ 


LLU A.C . 
TEC. A 
LO A, L_-LEN+1 
ae JR NZ LEVS3 SUNLESS WANT NEW LINE (FOR C=1) 
DEC B 
LOCA, 30 ¢= LILEN+1 
BIT PR, CLY-Y+FLAGS : 
JWR Z,LPVS3 3 
FLISH, DE 
CALL DUMFPR 
POP LE 
LD A.C 3 
LPV63: CP C H 
PUSH DE : 
CALL Z.TVFUL? 71F BEGINNING OF NEW LINE 
FOP OE 
SHERE TO PUT CHAR IN DISPLAY FILE. 
\ SBC = SCREEN COORDS, HL -> CURRENT FOSN IN DISPLAY FILE, 
$ DE -> BIT ROW IN CHAR SET 
PUSH BC 
PUSH HL 
ASSERT (XOR_CH=0). AND. (INV_CH=2) 
my LU Ay (FFLAG) ° : 


t 


) 
UNLESS PRINTER 


s= LULEN+1 
= L-LEN+1, BC = SCREEN COURDS (C <> 1). 


Lo B,-1 
RRA : 
AR C,LPV73 SIF XORING NEW CHAR INTO OLD 
INC B 
LPV73s RRA sNOW B = -1 IF XORKING, O IF NOT 

RRA 
SBC ALA . . 
LO CLA sC t= -1 IF INVERTING NEW CHAR, O IF NOT 
LO AS sFOR 8 SCANS 

» ANT A 
BRT PR» (IY-Y+FLAUS ) 
JR OZ» LPV75S 3IF NOT PRINTER, WITH CARRY CLEAR 
SET PRLEFT, (1Y-Y+FLAGS2) 
SIF 


LPV7S: EX DE,HE 


TELEVISION 


Loc 


O1EC 
O1ED 
O1EE 
O1EF 
O1FO 
QF 1 
OVF2 
O1F3 
OLFS 
O1F4 
O1F7 
O1FS 
O1FA 
O1FE 
O1FC 
aza0 
O203 
O204 
0205 
a204 
0207 


O2Z0E 


o210 
o211 
O212 
02123 
oO214 
O214 
O218 
O21? 
o2i0 
O2Z1E 
O21F 
o220 
O221 


225 


0227 
O229 
0228 
O22 
O22F 


. 


O83 
1A 
AO 


23 
FDCBO14E 
cc1002 OR 


FDOCES776 
2303 : 


E6C7 
CBS7 
2002 
EESS 
FOCBS766 


796 
797 
798 
799 
B00 
Frey 
€02 
€03 
804 
205 
2046 
607 
soe 
B09 
#10 
gil 
e12 
813 
e14 
ais 
B14 
817 
613 
B19 
820 
S21 
S22 
B23 
S24 
B25 
S24 
S27 
B28 
829 
e30 
e314 

832 
833 
24 
635 
S34 
837 
e328 
eas 

240 
S41 
e42 
64% 
S44 
845 
B44 
847 
£49 
249 


To.1 
OBJ CODE M STMT SOURCE STATEMENT 


LPV76: 


LPV773 


LPV3: 


ATTBYT= 


LAT3: 


“LD ASH 


EX AF.AF’ 
LO A, (DE): 
AND & 

XOR (HL) 
XOR C 

LO (DE),A 
EX AF,AF’ 
JR C,LPV8 
INC DO 

INC HL 
DEC A 

JR NZ+LEV76 
EX DE.HL 
DEC H 


FAGE 
A'3sM S. 


t= CLD BIT ROW 
UR IN NEW BIT ROW 
NVERT IF WANI TO 
UPDATE DISPLAY FILE 
$A &= SCAN COUNT 
3IF FRINTER 


& 
9 


Q SAVE SCAN COUNT ### USE EX AF, AF’ HERE ##4# 


37 

$A 

$A 3:= GLO BIT ROW IF XORING, O IF NOT 
3X 

7 

ee § 

3 


3DE 8-> NEXT SCAN IN DISPLAY FILE 
sHL &-> NEXT BIT ROW IN CHARACTER SET 


3IF MORE SCANS 


sHL &-> LAST SCAN 


BIT PR» C1Y-Y+FLAGS) 


CALL Z,ATTBYT 
FOP HL 


-POP BC 


DEC Cc 
INC HL 
RET 


EX AF, AF’ 
LD A» 20H 
ADL’ ALE 
LD EA 

EX AF.,AF* 
WIR LPV77 


RRCA 

RRCA 

RRCA 

AND 00000011B 
OR 01011000B 
LD HA 

LD DE, (ATTR_T) 
LD A,» (HL) 

XOR E 

AND D 

xXOR E 


JR Z, LATS 


we we 


AND .NOT. (7. SHL. BACKG) 


sHL & 
sBC & 


SCREEN COWRDS 


> TOP SCAN GE CHAR IN DISFLAY FILE 


sHERE FOR NEXT SCAN WHEN USING PRINTER 


3FIXES ATTRIBUTE BYTE. 


sNOW FIX ATTRIBUTE BYTE 


sHL ?-> ATTRIBUTE BYTE 


3HL -> ANY SCAN OF CORRESPUNDING CHAR IN ,DISPLAY FILE, , 


ohe ‘ 


3E $= NEW AITRIBUTES, D t= MASK 


c=) 


BIT FOREG+GREEN,A 
sIF GREEN PRESENT IN FOREGROUNU 


IR NZ,LATS 
XOR 7.SHL.BACKG 


BIT FCB, (1Y-Y+P_FLAG) 


= FOR O MASK, OLD XOR NEW FOR 1 MASK 
= NEW FOR 0, OLD FOR 1 


SNOW WANT BACKGROUND ¢= CONTRAST WITH FOREGROUND. 
3 (I.E. WHITE TF FUREGRUUND = SLACK, BLUE, RED OR MAGENTA - 
WHICH IS IF GREEN IS ABSENT 
WHITE, YELLOW, CYAN OR GREEN) 
SBACKGROUND &= BLACK 


> BLACK IF FOREGROUNY = 


SELSE BACKGROUND #= WHITE 


ce Se 


Whee 


Vs§ 
eae 
| 


ail 
ii 


TELEVISION 
Laon ORS CODE M 


L1ao0oo 


o24@ FESS 


Lon ny oe Lae 
Sea2 


DS1F 


F 
mie7 502 R 
1A 

EGVF 
TE76O0R R 
1A 

12 


STMT 


SOURCE 


101 


LAT4: 


ms 


*) 
as 


FUTM 


i 


PUTSYM: 


LDKOD 6, 


LEK 1: 
LDS: 


LORS: 


LOOKS: 


STATEMENT 


JR 2,LATA 


PAGE 9 
ASM 3.7 


SNOW WANT FOREGROUND ¢= COMPLEMENT OF BACK OROLINL 


AND «MOT. (7. SHL. 
BIT BACKG+GREEN: 


JR NZ+LAT4 

XOR 7. SHL.FOREG 
LO (HL)2A 

RET 


PLUSH HL 
LD HO 
EX (SP),HL 
WIR LOK 


LI ME, TOKENS 


CP SBH 
IR Ty LoK 1 
SUB 1FH 


PUSH AF 
CALL MESTXT 
JR Oy LOK 
LD A,’ * 


FOREG)  $FOREGROUND t= BLACK 

Aa 

SIF GREEN PRESENT IN BACKGROUND 
SELSE FOREGROUND := WHITE 


SPRINT ATH MESGAGE TO TV_OR PRINTER, RE -> —1TH. 


tWITH ZERO MS BYTE OF (SP), 10 INHIBI) SPACE AFTER 


3 MESSAGE 
3 


EXPAND & PRINT ia TOKEN TO CURRENT CHANNEL 


se ADDITIONAL CODE FOR NEW TOKENS AND FUNCTIONS 
SDELETE Ta RESET? 


5H 


SUNLESS WANT SFACE FIRST 


BIT SPC. C1Y-Y+FLAGS) 


CALL Z,FRUTV2 
LO A, (ME? 

AND 7Ft 

CALL PRUTVE 
LO A, (ME) 

IND ME 

AN Ags 

WR NO, LORS 
Four DE 

CP DOLLARS 
JR 2, LDS 

TP “CATHS 

RET © 

LO AT 

CP TOKFN-10K0 


“RET © 


LO A, SPACE 


PUSH DE 


EXX 

- REST WROH 
EXX 
POP DE 
RET 


SLINLESS SPACE SUPPRESSED BY PRECEDING SPACE 


3 UNLESS LAST CHAR 
sors fOKEN NO. 


$3 EXIT IF LAST CHAR NOT ALPHANUMERIC OR $ 


SNC SPACE AFTER NULLARY OPERATORS 
5 ELSE WRITE TRAILING SPACE : 
SRET URUK, BUT PRESERVING DEBS CDEsH LL? & USING BICHL 


aaa 


© 


©® © 6 ®@ 6 ¢ 


S&S © 8 8 8 


@ © 


©® €@ 8s 6 
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TELEVISION stare FAGE 10 
LOC OBA CODE. M STMT SOURCE STATEMENT ASM 5.9 ; 
$04 MESTXT: ;DE ?-> TEXT FOR ATH MESSAGE IN A LIST STARTING AT (DE), 
_ P08 : THE -1TH. 
; $04 SEACH MESSAGE IS TERMINATED BY A CHARACTER WITH BI1 7 SET. 
207 SKESETS CARKY IF TOKEN NORMALLY HAS A SFACE BEFORE 
S08 ; (IN PARTICULAR IF CRIGINAL A < OR_TK-TOKO = ABOUT 20). 
HOP SPRESERVES BCHL 


TVFUL?: 


‘ 


FOWCBOL 4: 
co 

111404 ~R 
{Vs 

72 
FORO AA 


mee 


RK 


OZAT FOCRORGA 
OAR 25145 
OfaLs FOSESD 


FISH AF 


EX DE,HL 

INC A 

BIT 7+ (HL) ; ELSE SCAN FAST EARLIER-MEMBERS OF LIST 

TNC HL 

IR Z,LST4 ; UNLESS ENL OF WORD 

TEC A 

JR NZ>LST4 + COUNT WORDS 

EX DE,HL ; HERE WHEN HL -> REWD fEXT 

FOP AF : 

CF OR_TK-TOKO 

RET ¢ 31IF FUNCTICN NAME 

LO A, (DE) 

SUB “AS 

RET 

SCHECKS WHETHER PRINT POSITION BC FITS ON TV SCREEN OR NOT. 
S(RENURNS STRAIGHT AWAY IF PRINTER. ) 
$THIS ROUTINE IS CALLED (1) WHEN A CHAR IS TO BE PRINTED AT THE 
; BEGINNING OF A LINE, (11) WHEN @ NL IS PRINTED, 
; & (LIT) WHEN PRINT AT IS USED 
: IN THE LOWER HALF (FOR INFUT CAPTIONS WITH ALL POSSIBLE 
; FACILITIES: SUCH REFINEMENT MAY NOT BE NECESSARY). 
; : NOTE THAT PRINT AT WILL NOT SCROLL IN THE TOF HALF. 

3IN UFFER HALF? FULL UP IF & <= (DF_$Z). THEN WILL SCROLL UF 
i & INC & PROVIDED HAT B = (DIFLS2)3 ELSE ERROR 5S (SCREEN 
: FULL). 
; NE OIF DOING AUTOMATIC LISTING, CHECKS TO SEE WHETHER IT 
; . 18 TIME Ta sTor. 
SIN LOWER HALF? FULL UF IF (DFLSZ) < TVLLNS+1-B. THEN SCROLL UF 
; TV_LNS+1—-B~(DF_$Z) LINES, ERRORS IF B <= 1, | 
7IF SCROLL THEN HL #-> 1ST CHAR IN NEW LINES ELSE PRESERVES HL. 
; PRESERVES C, & ALSO B EXCEPT WHEN SCROLLING UPPER HALF 
: (WHEN EH += 1). 
sIF TY THEN FINISHES UP WITH SETTYC, 

BIT PR» (LY-Y+FLAGS) 

RET NZ iIF PRINTER 

Lo DE,SETTVC 

| PUSH DE HRETURNS AKE VIA SETTVC 

LD A,B 

BIT LHS, (1Y-Y+TVFLAG) 

JP NZ,LTL4 ;IF LOWER HALF 

mE (1Y-Y+0RF_SZ) PNOTE t- HERE WE KNOW HAT C = LOLEN+I 

wR 0, ERRS 21F B < (DFLSZ) ### IS THIS POSSIBLE? #4# 

RET NZ ;IF ON SCREEN 

BIT LIST: (1Y-Y+TVFLAG) 

JR Z,LTLS ; UNLESS IN AUTOMATIC LISTING 


LOE, (1Y-Y+BRES) 


® © @ @® @® 6 © 
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TELEVISION T0_1 . PAGE 11 
_ Loc ORI CODE M STMT SOURCE STATEMENT : ASM 3.9 
in. PSs DEC E 
BEA ey JR Z,LTLSS SUNLESS HAVE STARTED LINE AFTER CURRENT 
SEQQ Fo0 LO A, COMLUST — 
CLOQOO X P46) CALL SELECT 
: COV ESF SC 962 LO SP» (LISTSP) 
OES FOTEOZAG FOR RES LIST, C1Y-Y+TVFLAG) 
Once Cy PLA RET 
965 : 
a S46 ERRS: RST ERROR ;ERROR 3, RUN OUT OF SCREEN 
OLe2 O4 P&T DEFR 4 , 
SER 
PO “SHERE WHEN WANT TO SCROLL! IF HIS WOULD SCROLL OFF SOMETHING 
ran 3 THAT THE USER HASN’T HAL A CHANCE TO SEE, THEN WAIT FoR 
S71 H HIM TO TYPE SOMETHING. 
?72 Des “CLY-Y+SCR_CT) ’ 
JRONZ»LTLS 
LO A, TV_LMS 8 


SUB OH 

LO (SCRLCT)A 

ASSERT MASK _UT=ATTRUT+1 
LO HL» (ATTR_T) 

PUSH HL 

LO A, (P_FLAG) 

PUSH AF 

LO AJHIDLE 

CALL SELECT 

XR A 

LO DE. SCRREGQ 

CALL PLITMES 

SET CLHS, C1Y-Y+TVFLAG) 
LD HL FLAGS 


OLR | 


Q2CEF 


cLIOOa xX CALL ROCH 3H ADLTTLONAL 
List 

_ FEZO 
2245 


JK 2,ERROE 
CP STOPTK 


JR Z,ERRD SIF “N* OR “N°? 
LD A,HID_LS 
CALL SELECT 

POP AF 


SSAVE OLD COLCUR PARAMETERS 


CEOE SET LMOUE, CHL) 
CEA RES FEYHIT. CHL) 
ace EXX STO PRESERVE BC’ Oo’ E“H“L? 


BIT LHS OF (TVFLAG) IS CLEAR. 


1004 LO (PLFLAG),.A 
1005 POP HL 
LOGE LO (ATTRIOT) HL SRESTORE CLD COLOUR PARAMETERS 
1007 LTL3a: THERE FOR TOP HALF SCROLL: BOTTOM HALF TS CLEAR (ALTHULIGH 
1008 ; : (OF_3Z) MIGHT NOT BE 2), 
oso eCDs704 Fk 100% CALL SCRL ; 
1010 3AT THIS POINT THE BOTTOM HALF SHOULD BE CLEAR, BUT THE COLOURS 
1o11 ; NEED ADJUSHING. THE BOYTUM LINE OF THE fir HALF IS THE 


Se ee ee ee 


i 
} 


rs) 


© @ 6 © 66 © @ 8 6 8 6 @ 


TELEVISION . Iti. - PAGE L2 
Lint OBI CODE M STMT SOURCE STArEMENT AEM S.9 
1012 H COLOUR OF THE BOTTOM HALF, WHILE THE BOTTOM LINE OF THE 
1913 : 4 _ BOTTOM HALF [S THE PERMANENT BACKGROUND COLOUR. WE SWAP 
1014 . Hy THE ATTRIBUTES OF THESE TWO LINES. 
FO4ASS1 1015 LO 8, (1Y-Y+OF_5Z) 
04 ; 1916 INC B 
ORS L 1017 LO C,LULEN+1 
C3 1013 PUSH BC ‘ 
TonsoO4 R 1019 CALL LINUBU HL &-> BOTTUM LINE OF TOP HALF 
ram 1020 LO A.H 
OF 1024 BREA 
OF 1022 RRCA : og 
OF = RECA 
E403 ANLE QOOMOOLIB 
F453 OR OLdL1LO00R 
67 LI H,A sHL ¢-> ATTRIBUTE BYTE OF START OF BOTTOM LINE OF TOF 
LLEOSA LO DE, ATIRG+( TV_LNS-1)#LULEN 3 HALF 
a) LO A, (DE) 8 
4€ Lo i, (HL) ; 
Q420 LOB, LULEN 
Ee .  €X DESHL 
bits 1032 LTLSes: LO (DE).A 
71 . 10323 LO (HL). 
13 1034 ; INC NE 
ZS 102335 _ INC HL 
10FA 1034 DUNZ LTLSSs 
ia | 1027 POR Bt sR r= UPPER HALF CouRosS FOR SET Ve 
rp 1038 RET 
1023? 
20 1040 SCRREG: DERM BOH 
JER3724F . 1041 DEFM “SCROLL ¢ 
BF 1042 DEFB “?"°.0K. 20H 
1043. 
1044 ERRGS: RS) ERROR SERROR D2, BREAK KEY PRESSED 
oc LO4S | : DEFER i2 
1046 
FEO 1047 LTL4s CP 2 
3SB80 1043 JR, ERRS $IF TRYING TO MAKE (OF25Z) >= TVLLNS 
FOSS31 1049 ADD As CIY-Y+0F SZ) 
DAL? 1050 SUB TVLLNS+1 
oo 1051 RET NO SIF ON SCREEN 
En4 4 1052 NEG 
ms 1Oo3%3 FLUSH Bm 
47 1054 LO BLA 
SAGE Sc 1055 LO HL. (ATTR-T) 
ES 1054 ‘PUSH HL 
BA? Lom 1057, LO HL.~¢CPLFLAG) sl t= (PLFLAG) 
ES 1023 PUSH HL 
Osos R 1059 TALL RLATTS . 
7 1040 LO A,B 
ro 1O21 LAFLSs PUSH AF , 
BLISBSC 1042 LO HL, OF SZ 
45 10453 ° LO #B, (HL) 
73 1044 LO A,B 
3 LO43 INK A 


TELEVISION 
Loc 


Pah S 


OB CONE M STMT SOURCE 


Tr 1964 
21895 1087 
RE . 1068 
S203 1040 
oq 1070 
O418 “ 1O7L 
Misso4 RF 1072 LTLES: 
FL 10723 
3 8) 

BOER 

El 


POSS? 


LOL4O4A OF 
FOC BORIES 
Cl 


1100 


1101 
1102 LRES: 


AE 1102 


E655 1104 
AE 1105 
77 1104 
Cy ‘1107 

1103 


1107) KLOLS: 


“CHEAQS R 1110 


11110 CLLHS: 
1112 
1113 
1114 
1115. 
. 1114 
L117 
1112 
1119 


cade | F 
STAtEMENT 


RLATTS: 


LO (HL)A SINC (DF_LSZ) 

LO HL, S_RCISN+4 

cP (HL) 

Jk Cy LTLSS SIF SCROLLING LOWER HALF WON’T COVER PRINT POSN IN TOP 
ING (HL) SINC CS_PCSN) +1 

LO B TV_LLNS 

CALL SCRL_E 

PIP AF 

DEC A 

JR NZ» LTLS ;TO SCROLL AGAIN 
SUP HL 

LO (LY-Y+F FLAG) ob 

BOP HL 

LO (ATIR_T)» HL 

LO BC, CS POSN) 

RES LHS, (LY-Y+TVFLAG) 

CALL SETCUR R 
SET LHS. (IY-Y+TVFLAG) - 

POP BC 

RET 


STEMPORARY ATTRIBUTES == FERMANENT ATTRIBUTES, ACCORDING TO BIT 


3 LHS CF (TVFLAG). 
SPRESERVES BODIE 
ASSERT (MASK_P=ATTR UF +1). ANIM (MASK _T=ATTR_T+1) 
XOR A 
LO HL. (AT PROF) 
BIT LHS, (1Y-Y+TVELAG) 
Je Z,LARES : 
LO HLA 3H t= 0 FOR (MASK_T) t= NEW. THROUGHOLIT 
LoL. ¢(1Y-Y+SORDCR) FUR (ATTROT) 
LO (ATTROT)>HL 
LO HL.» PFLAG 
JR NZ» LASS }FOR LOWER HALF, WITH A = 0 
LO A, CHL). 
RRA 
HERE 10 UPDATE (PFLAG) WITH NEW BITS 4420 IN A 
xOR (HL) : 
ANE! OLOLOLOLE 
XxOR CHL) 
LI! (HL)A 
RET 


sCLS STATEMENT 
CALL CLS 
’ $CLEAR LOWER HALF OF SCREEN! BOTTOM TWu- LINES TO BORDER COLOUR, 


3 REST TO PERMANENT SACK GROUND COLOUR, 

STEMPORARY COLOURS &= BORDER COLOURS 

S(UFLSZ) t= 2 

5 (3 NL) CORFGCL) &-> LOWER HALF HOME . 
SCHANNEL K SET TO STATE 9 (NOT EXPECTING DATA BYTES FUR 
3 COMPOSITE CHARACTERS). 

SRESETS BIT CLHS UF (FYFLAG) 

SSELECTS CHANNEL KF. 
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TELEVISION TOL. PAGE 14 
Lace OBI CIE M STMT SOURCE STATEMENT ASM S.? 
ODA? Z13CSC 1120 LO HL» TVFLAG 
1121 RES CLHS, (HL) 
1122 SET LHS, (HL) sFOR RLATTS 
R 1123 CALL RLATTS ; 
“114 LOB, CIY-Y+RF_oS2) 
R 1125 TALL Clee ; 
1124 Lo HL, ATTRS+(TV_LNS—2) #L_LEN 
LO A, (ATTRLP) i: 


1507 
OER 

2B 

77 

Oct 

ZOrFE 
10F7 
FUSS S102 


OCF SERL 

est. croooo 4 
Osta 2ASLEC 
OSU. t 1900 Te) R 
wana 


Q208 
oy 200 
Xx 
O1zt17 
122A 
\ 
i 
210000 
R 
x 


1127 


LOS4 


LHHOME s 


é 


LLH2: 


vec Bb 

WR LOSS 

LO C,LULEN 

DED HL 

LO (HL).A 

DEC C 

JKR NZ,LOS4 ; 

DJINZ LOS2 

LO (LY-Y+DF_82).2 8 
SLOWER HALF HOME 


?WITH B= 1 + NO, 


LINES TO BE CLEAREL TO PERMT BACKON. 


SSELECTS CHANNEL K & SETS IT TO STATE QO. 


3 (SPOSNL) & (DFCCLY :-> HOME. 
LI! A, HIDE 
CALL SELECT 
LO HL CCURCHL ) 
LO DE, SENUTYV 
AND A 


LO (HL)E 


INC HL ? 
LO (HLD.D 

ING HL 

LN DE, INK 
Cor 

JR C,LLHS 

LO BC, (TV_LNS—2 25.54 LEN+1 

JR SETCUR 7 


RESET INCH ALWRESS THE 2NU TIME ROWND 


SCLEAR ENTIRE SCREEN TO PERMANENT BACK GRULINED COLOUR. 
eee AELe i PARAMETERS t= PERMANENT ONES, 


CHANNELS K & 3 TO SiaTe o 
COMPOSITE CHARACTERS ). 
SPRINT PONS SENT HOME, I 


CSWPOSN) & (OF LIC) 


CHANNEL 3. 
CCOORLS) t= 0. 


SNE DOESN’ T CHANGE (DFLSZ). 
LO HL.O 
LD (COORDS). HL 
RES ALOS, (LY Ese 2) 
CALL LHHCME 
LO A,HIOLS 
CALL SELECT 
CALL RLATIS 


’ 


(I.E. NOT EXPECTING DATA FoR 


TOP LEFT-HAND CORNER, 
BNL) & (OFCCL) #-> START OF 2ND LINE IN LOWER HALF. 


(SCRLCT) §= 1 Ta INHIELT ALL SCROLLS 


Pa 


fa 


ey 


& 8. 


& 8 


Fa 
% 
—&__> 


TELEVISION : Io. PAGE 15 al 
Loc 6k. CONE M STMT SOURCE STATEMENT ASM 5.? él 
OSFF O418 1174 LO 8, 1V_LNS 
O40 CD7FO4 R 1175 CALL CL3_8 
o4ng BASISC 1174 LO HL» (CLIRCHL) © 
0407 110000 K 1177 LO DE, SENUTV 
Oo1OH 7S 11/8 LD (HL) E 
O40 BB, INC HL o 
o4or 72 LO CHL)» SRESET CHANNEL $ fa STATE O 
OFOL  FISSS2O4 LO (LY-Y+SCR_CT) > 1 
O4lL O12119 LO Bt, FVLLNS#254+L LEN+1 @ 
SETCUR: : aan 
SETTVC: SSETS WP (SUPOSN) (ETC) & (DFC) (ETC) $0 THAT 
: (SUPUSN) (ETC) = BE, ri) 
SASSUMES 1 <= B <= TV_LNS, 1 <= © <= L_LEN+1. ; 
; TF Go = 1, THEN HL MIGHT SE WRONG - IT WILL BE UNE MORE : 
° ; THAN THE CORRESPONUING VALUE FOR C = 2. a) 
SDUES NOT CHECK THAT THE FUMSITIGN IS ACTUALLY ON THE SCREEN. 
SPRESERVES BC, HL t= (OF_0&) (ETC). 
C414 Z1LO03R LO HL, PREUEF @ 
O417 FOCROL4E BIT PR: (LY-Y+FLAGS) 
O41B  2o1R . JR NZ,LSC4 31F PRINTER 
0440 72 "Lo A,E ; @ 
OE  FOCRORAS BIT LHS, (1Y-Y+TVFLAG) 
o422 2 JR Z,Le03 3IF UPPER HALF 
Oya FOSS AD A, (IY-Y+ulF_ SZ) @ 


O47 L461 SU 24 


cs LSC: PUSH BC 

7 LO BA & 
coogo4 R CALL LIN UBU 
1 POF Et 

cE Lo A,L-LEN+1 C3 
2 a) = a 
SF LO ELA 

1400 Lo oa @ 
1) AND HL.vE. 
(TSF 300 K Jf STTvcu 

@ 


SSCROLLS WF ENTIRE SCREEN 


O4FSp 0517 LO B, TV_LNS-1 


SSCROLL UF BOTTOM BR LINES OF TV SCREEN, INSERTING BLANE LINE AT @ 
3 BOTTUM (USING FERMANENT BACKGROUND COLOUR CR BORDER 
Hy COLOUR, ACCORDING TO BIT LHS OF (TYFLAG)). 
SASSUMES 1 <= B <= 22 ' @ 
SFOR EACH OF THE & SCANS, WE SCROLL UP ALL THE. LINES . 
$B t= 1, C t= L_LENt+1L ‘ . 
O43B ' ASSERT (LULEN=22). AND. (TV_LNS=24). AND. (OUFILE=4000H ) ; Q 
O438 cona4o4 R TALL LIN BU SHL t-> START UF TOF SCAN OF 18ST LINE [0 BE SCROLLED ‘ : 
O4ZE QE LD 0, SFOR THE 8 SCANS 
odan CS PUSH EN ; 
O44) ES PLUSH HL SHL t-> START OF CURRENT SCAN OF 15ST LINE FOR SCROLLING : 
OAS 73 LO A;sB $A t= NO. OF LINES To RE SCROLLED 


0443  ESL07 
O44s 78 
O44 2O0C 
Odaa EB 


AND 7 a @ 
LO A,B 

JR NZ, LSE4 SUNLESS WANT TO SCROLL COMPLETE BLOCK OF & LINES 

Ex OE, RL : @ 


TELEVISION Io. : FAGE 14 

Lo Of COUE M STMT SQURCE STATEMENT ASM 3.9 

O44? RiEOFS LO HL,»-720H 

OAAL, 19 ADD HL, CE 

o440 EB EX DE,HL : 3DE &-> LAST LINE IN PREVIOUS BLOCK 
Oddie OL2000 LO BC.32 
O4S4 3n DEC A 

Oss EUBO LDIR SSCROLL UP TOF LINE wr BLOCK 

O4qeg ER EX DE,HL ee 

O4ss SLEORF LO HL» -20H 

Ogss 1? ADO HL.DE 

ods? ER EX DE,HL SDE &s-> PREVIUUES LINE 

O4sa 47 LO BLA . 

O458 E407 ANL! 7 SA f= NO. OF LINES (0 SCRULL IN THIS BLOCK 
o4sn OF RRCA ‘ 

O45E OF RRA 

oqsr OF RACA 

O460 4r LO fA 

Oded 73 Lo ALB ’ 

O442 O60 . LO HO 3B f= S2eNO. OF LINES 

0464 EREO LOIR 

044646 QL07 LO &,7 3B t= JOOH 

O468 op Ang HL, tC sHL &-> TOP LINE OF NEXT BLOCK 

0449 EA4FS ANL OF SH 7A $= NO. OF LINES LEFT TO SCROLL - 
OFSB OTE JR NZ» LSES SIF ANY MORE LINES TO Of IN fHIS SCAN, 
O4éD El POF HL THL &-> CURRENT SCAN OF 1ST LINE SCROLLED 
O44E 24 INC H 5 HL +2= 100H, SO HL &-> NEXT SCAN GF 157 LINE SCROLLED 
O4GF C1 POP BIT $B t= NO. OF LINES TO SCROLL, 

0470 on QED 5G ts NO. UF SCANS LEFT 

O471 Zoca JK NZ,LSB2 sFOR NEXT SCAN | 

O47 3 Coo 304 R PALL — SUE SNOW WE SCROLL THE ATTRIBUTES 

O47 DLEOFF LO HL» -20H 

Oa7o 19 Sot HL, DE 

0478. EB EX DE.HL SDE &= PREVIOUS LINE IN ATTRIBUTES 
O47B EDEO LOIR , 

LO EL 


O47 0 O4O4 
7 ae 7CLEAR BOTTOM B LINES OF SCREEN USING FERMANEN) ATTRIBUTES 
3 OR BORDER COLOUR CACCORDING AS BIT LHS OF (TVrLAG) IS 
- 3 CLEAR OR SET). 
FASSUMES 1 <= E c= 24 
SPRESERVES 8B, C t= LULEN+L 


ASSERT (LOLEN=32). AND. (CPVLLNS=24). ANIL (OUP ILE=4000H) 
5 FUSH EC 
romeo R CALL LINUBU sHL &-> BEGINNING OF TOP SCAN OF 137 LINE FOR DELETION 
OE OE . LO c,8 SFUR THE & Shans . 
cs PUSH BC 
ES PUSH HL ; sHL -> LST LINE To BE DELETED 
7& LO AE 5A t= NO. OF LINES 10 SE DELETED 
E407 ANL 7 ; ° 
OF RRCA 
OF RAIA 
OF RRO 
4F LU LA : 
78 Lo ALE $A t= NO. LINES LEFT FOR DELETION IN THIS SCAN 
O400 LO BO SBCIHTeHt LINES FOR DELETION IN THIS BLOCK (O=8 LIMES) 
or DEC C SNR IF 8 LINES IN THIS BLOCK THEN BO t= OFFH 


44 ME ea lan a iA) a Sa cat Senha te ie NS OPN BCE ge LETT TS NOME Ak Ah ALE MONE AS AEN, EN OS Ag as oA NR, UN SEY eM ASE IEAD SNS RESIS “SY AOD ERO SA ae ALN SP RSPEI SN MICE OP ENR RES EEA LET ITN A Sida Se MANO RO ER ABO SAR ORT ETON OR PRY NE Se 4 OL: RIP AE HO LAGI OH SEIT Win Rint egal en M seth o's 


SLEV ISICON 
cn: 


pe 
ra en ae a ! 
[Df wy re LA te 


COCcs04 R 


A 
77 
OB 
ETO 
©. 

OETA 


ra 


1313 SC.SUB: 
1314 
1315 


7 
OF 
OF 
OF 
a0 
FASO 
47 


In. FAGE 17 : 

JOR Cone M STMT SQURCE STATEMENT : AEM SLR | : , : i 
a4 LO OH 

So LO EL 

2400 LO (HL) 2O 

13 INC DE SHL t-> AST CHAR FOR DELETION IN THIS BLOCK, Dk ¢-> 2NU 

EMeo LOIR 

119107 LO DE, 7O1H 

i? Aun HL. DE SHL s-> AST LINE IN NEXT BLOCK 

Sn DEC A ; : 

ESFS AND OF SH } 

47 LO BA SB ot= NO. LINES LEFT To BE. DELETED FOR THIS SCAN 

S0ES YR NZ, LIES SUNLESS FINISHED THIS Scan ot 
El FOr HL ; 
24 THO sHL or-> TOF LINE CF NEXT STAN 

C1 POP BC sk <= TOTAL NO. LINES TO DELETE 

on DEC C $C r= NO, sCAMNS LEFT 

ZOE JR NZ,LOB2 3IF ANOTHER SCAN TO Fo 


CALL SC SuB 

LO HD 

LO Loe 

IND DE 

LO A, CATTR_F) 

BIT LHS) (1Y-Y+TVFLAG) 
JR 2 LOR4 

LO A, CBORDIGR) 

LU (HL) A 

Pec BC 


LOIR s 
POP BC 3B t= ORIGINAL VALUE 
LEP C+ LOLEN+L , 
PE ; * 
SSUBROUTINE USED BY SCRLLB & CLS_B 
3CN ENTRY HL -> THE BEGINNING OF (AS IT WERE) THE NINTH SCAN UF 
$ SOME LINE ON THE SCREEN, & O = O, 
SOE s—> BEGINNING OF THE CORRESPONDING LINE OF ATTRIBUTES 
IBID i= SKE 
sHL STARTS GFF WITH 
3 BITS 15-13 = O10 
$ BITS ta-11 = BLOCK+1 ¢1 TO 8) 
, BELTS 10-8 = OOO FOR SCAN 
3 BITS 7-5 = LIME 
; BELTS 4=0 = GO000 FOR GOLUMN 
3 & WE WANT DE To HAVE 
3 BITS 15-10 = O10110 
$ BITS 9-3 B® BLUCK (O fo o 
3 BITS 7-S = LINE 
H HITS 4-0 = O0000 FUR COLUMN 
LO AH 
FRICA 
FRCOA 
RECA 5A f= OOOOLO \ BLOCK +1 
Dec A 
OR SOH 
LOO HLA ‘ 


@ 


fe 
o 


2 © S$ © 


e 


& 


© © 6© 0 8® @ 6 & @ ®@ 


PP EEO PT OP OE TI TE TH Sa PRR RP RTE EO PE 


eae eRe 


TELEVISIUN 
Lat OBI CODE M 


Oo4cR EC 
Odmg 9 bt 
omen 4S 
O4nk 
O4CF 
OALIO 
O4ADy 
O42 
Oars 
Qa tra 


O405 


OAL GELS 


O4ns 70 
o4ny 37 
O4 0A OF 
oan OF 
oO4nc OF 
OAc ESEO 
Q4ur ’F 
OFEQ Pe 
O4b 1 Eis 
O4lS Fé4o 
O4kS &7 


O4e ds uy 


O4E7. FS 


OTE co 
OVE? 0 
OFEA. O1409C 
OED O08 
O4EE 7 
Oa Ro 
O4rd ZOFR 
OFF 2 AF 
O4F3 DEFE 
O4FS ESLF 
O4F7  . FEAF 
O4FD 22F7 
O4FR COAros R 
O4FE [nh 
O4FF mt 
OSG Ft 
SOL ce, 


dot 
STMT SUURCE STATEMENT 


LIN BU: 


LIN_AA: 


AKEY: 


AKEY 1: 


AKEY Zs 


EX DE.HL 
LO Ht 

LD LE 
ALLE HL HL 
AQT HL, FL 
AUD HLyHL 
An HL» HL 
Agt HLyHL 
Lo ELH 

Lo Cok 
RET 


HL 


LO A, 24 
SUB B 


SENTER HERE WITH A = 
SPRESERVES BCE 


LO DA 
RRA 
RROA 
RRITA 


LO LA 
Lo Ao 
ANU LSH 
OR 40H 
LO‘HLA 
RET 


PUSH AF 

PUSH BI 

PUSH DE 

LO EW, 40000 
HEC RC 

LO Ae 

OR 

JR NZ»AKEY 
xOR A 

IN Ay (OFEH> 
AND LFH 

CF 1FH 

WR Z, AKEY2 
CALL CLLH'S 
Por 
Por 
POP 
RET 


ve 
BC 
AF 


END 


t-> BEGINNING OF Tur 
COWRUINATES). 
FRESERVES 


FAGE 18 
ASM 5.4 
sH t= 0 


$LINE & WFPER HALF COORDS 
SCAN OF LINE B CIN S_PUSN 
BID 
a 
SLINE A, AT COORDS, 


LINE NO. IN AT COORES 


SWAIT A DELAY PERIOD 


S 


a 


& 


i) 


~i 
¥ 


PRINTER 
Lor 


OaO07 
QOOS 
OOK 
OOr 
Ooo 
OOE 
OoOOF 
OOLL 


OOS 
aoo14 
OOLS 
OOLF 
OOLe 
OL? 
OOLE 
Ooe 
oo10 
OOLF 


QoO2R 


CR CODE M STMT 


F3 

OGEO 
21O04a0 

ES 

Cs 

Cn4s00 RK 
C1 


EGO7 
290A 


70 
C420 
6F 

i 

OF 
E4GFS 
a4 

4&7 : 
10E7 .- 
1800 


FS 
SLOOSE 
O40 

See 

CD4500 R 
C1 


4a 
40 
451 
452 
43 


ASA 


4a 


ch 
“it NY 


ren 


TD a poe 


tr of 


mee PR ee oP oe eo 


PON NY 


> 
> 


102 ; FAGE 1 
SOURCE STATEMENT ASM 5.9 


HHEALING PRINTER 
*¥LIST CN 


GLOBAL KODUMP DUMPPR, DESLUG, CLER 
GLUBAL DELSYM,EDIT_K, INSA,DEL_K, ECHO, INK 
GLOBAL PRSICAN 


EXTERNAL FARF 

EXTERNAL -H2. SENDTY, SETTVC, RAI ITS, SETCUR 
EXTERNAL INS1,GETULN, SEARCH, SELECT, SEL_HL, INSERT sELIT 
EXTERNAL ROCH ; ; 
EXTERNAL LELODE, DELREC, FINDLL, LIST, DELHL,FUTOSR sLIST 
EXTERNAL LPO y sLIST 
EXTERNAL NEXTWL» PUT PROCUR 

EXTERNAL BREAK?) CHE SZ iSYNTAX 
EXTERNAL ERRH sSYNTWO 
EXTERNAL ALNUM?» ALPHA? . : 3 IDENT 


KUDUMPs SDUMPSS DISPLAY FILE, 10 PRINTER 
oy . 
LOB, (TVLLNS 2) SSCAN COUNT 
LO HL» DoF ILE . 
LEPts PUSH HL 
FLUSH &it 
CALL FRECAN 
POP BC 
POF HL 
INC H SFOR NEXT SCAN 
LO AH , 
AND 7 
JR ONZ,LEPS 


HHERE IF NEX7 SCAN IS A NEW LINE. BLOCK NO. IN H H@S BEEN 


; INCREMENTED. 
LO AdL F 
ALI. A, 32 
LOLA SHOR NEXT LINE 


Greer 
SBI ALA 
AND i jA f= -S UNLESS CARRY TO BLOCK Ma, 


ALD AsH 

LO HA . 
LEPS: DWINZ LEPZ 

JR LOR4 


DUMPPR: IPRINTS & CLEARS FRINTER BUFFER, 
TS @IT FPRLEFT OF (FLaAGES). 


PRESETS (PAPOSN) & (PROC), C t= (PLROSN), HL ¢= (PROG), 


iNE ASSUMES BIT PR UF (FLAGS) SET. 
api 
LO HL, PREUFE 
LO BLS ‘ sSCAM COUNT 
LUR2: PUSH Bit 
CALL FRSCAN 
POF Bi 


PRINTER 


Laie 


OOLT 


COAL 


OO4E 
O050 


OQ&H 
QOSE 
QOSe 


COLT 


» 


OB Coos M STMT 


LOFD 


SEO4 
DSFE 
Fa 


SLOOSR 
FO7S44 


Lore 


x 


73 


. FEO 


oF 
FLOR 


“DSR 


BT 
EDOOGO x 


CHE300 ~ k 


On 


4/2 


. 473. 


474 
47% 


Sa 
SOL 
soz 
30% 
SO4 
S03 
S06 


S107 


S08 
509 
a10 
S11 


S12: 


‘S1g 


S14 
S15 
S16 
S17 
Sis 
S1? 
S20 


ae 
rs 
tat ae se 
S23 
S24 


me 
S25 


SOURCE 


Itz FAGE 2 


LDR4: 


' 


CLERE 


LOR: 


FRSCANE 


L.PN2: 


LPN4: 


STATEMENT ASM 3.7 


QuINZ LUR2 
?HERE TO STUP PRINTER & CLEAR PRINIER BUFFER. 

LD A4 

QUT (PRIGUTZA 

EI 
SCLEAR PRINTER BUFFER & RESET BIT PRLEFT ae (FLAGS) . 
SMB ASSUMES BIT PR OF (FLAGS) SET 

LO HL»PREUFF é 

LO CIY-Y+PRUCC 


yok P(PROG) t-> START OF BUFFER 


ASSERT LILEN= 32 < i 
AC A 

LO BLA IFGR Sze = B54 BYTES 

LO (HL).A $(HL) t= 6 

INK HL 


QUNZ LORS 

RES FRLEFT, (1Y-Y+FLAGS=2 > ? 
LO Ce LOLEN+! 

JP SETCUR 


;SENO SCAN (HL) TO PRINTER. 

7Bo= MO. GF SCANS LEFT (>= 1) 
sHL += LLLEN 
*RETURNS 1F NO PRINTER, CLEARS BUFFER & ABORTS ERROR OD IF 
3 PRESSED. 
7FOR OLIPUT TO THE PRINTER (AT PRUOUT), 

BIT 7 = DUT FOR PRINTING: 1 = BLACK 
MOTOR OFF (1) OR ON CO) x 
HUTOR SLOW (1, FOR LAST TWO SCANS) UR FAST (a) 
FROM THE PRINTER (AT FROIN) 
TIME TO.PRINT (wT 
PRINTER AESENT 
START UF PAPER 


3 

i BIT 1 
;POR INP 
5 GIT Oo 
3 BIT 


iby hou tt 


NOS 


AND 2 

CUT (PRIOUT),A SSTART MOTOR IF NECESSARY, & SET ITS SPEED 
LO DA 

CALL BREAK? 

JRO. LENS PUNLESS BREAK PRESSED 

LO A,4 

QUT (PROUT), $TURN MOTOR & STYLUS OFF 

EI. ° 

CALL CLER 


oes Ee Rea LEE ee ys te ee ET ae Tg ee Hee ee CE ee eer 


BREAK 


RST ERROR SERROR 0D, BREAK (WITH CONTINUE TO REPEAT STATEMENT) 


BerB 12° 


IN A, (FR_IN) 

ADT ALA 

RET M siF NO PRINTER 

AR NG, LPNS GWAIT FOR START OF PAFER 
LOC, LOLEN SBYTE COUNT - 

LO E, (HL) 5E t= BRIT PATTERN TO PRINT 
IMC HL ‘ 


EE EN TN ET NS SSA RE A TN ER An ah i a Rah dpb Rohs Les eebed 


eb 3 Ndi ie 


®© © @ 668 @ 68686 86 


e 8 @ 8 


o 6 & 


S& 6 


oe 


PRINTER 


Lac 


OO6A 
QA 
OO46E 
OO7a 
Oo72 
0074 
O75 
077 
OoO7e 
OO7A 
OoO7K 
OO7 0 
OO7F 


Idg_2 


OB! CONE M STMT SQURCE STATEMENT 


DSFR 
10FO 
ca) & 
20E9 
ce 


LO 5,8 

RL OO 

RL E 

RR OD 

IN A; (FROIN) 
RRA 

AR NOs LENG 
LD AD 

OUT CPRLOUT) A 
DUNZ LPNS 
Des 

AR NZaLPN4 
RET 


SBIT COUNT 


5D t= DATA BYTE PO QUTFUT 


SWAIT FOR DOT POSITION 


SOWITROT DOT 
SFOR NEXT OT” 


sFOR NEXT BYTE 


canes 


KEYEOQARD 


Loc 


oleh 1a) 
OOES 


O84 


OOF 
OODF 


QOAD 


OOS 


OOA4 
GOONS 
IAA 
ODODE 


OOO 
OORS 


OO84 


OOS 
OOBS 
QORA 
OO RL: 
OO 
OOO 
OOte 


OOD] 
OOD 
Oona 


OB COUE M 


2ASIISC 
ES 
Zik201 OR 


_—S 


ED723D5C 
CHOOOD — xX 
FS 


"1400 


FPOSEPFE 
S10500 
CooOdee xX 
Fil 


218000 R 
ES 


FEOC 
2000 
FOCRSO6E 


BOOK 
rOCKkOL SE 


ete 
Pomnes 


FEL 
3031 


FEO7 


S20 
FELO 
910200 
a7 
FELS 
S800 


SF 
CHooeoo) x 


pS 


SASESC 


ee ape ee ae 


W2 ° PAGE 4 
STMT SOURCE STATEMENT ABM Si 
S30 SHEADING KEYSOARD 
S40 
S410 EDITLK: sEDIT LINE BUFFER 
S42 7 TERMINATED BY NEWLINE, UR PRINT COMMA, AT OR TAR CONTROLS 
43 3 (EXCEPT THAT FOR LINE INFUT LATA ONLY NEWLINE TERMINATES). 
S44 iTHE SUFFER ALWAYS CONTAINS A NEWLINE CHAR AT THE ENT, 
S45 i(KRUCURK) => THE CHAR BEFORE WHICH THE CURSOR APPEARS, 
S46 3OXPTR) IS MEUIRALIZED. 
S47 .TUSES Brt-no-e- 
S43 LDQ HL, (ERRUSF) $WE MARE ABURTS GO THROUGH BLEEP (nm. y.) 
Bqe PUSH HL 
330 LEKI LO HL, BLERP 
ood PUSH HL 
babar a LO (ERRUSP), SP 
S33 LEZ: CALL ROH 
354 FLUSH AF r 
Soo Lo 0,0 nt 
S54 LO EE, (1Y-Y+PIr) : 
S57 LO HL, 200 : 
S88 , CALL PARE SAPPROX. 1/20 8 AT 3 OCTAVE ABOVE MIDDLE c 
S59 . POF AF 2 
S40 jHERE JO MAKE LINE BUFFER TAKE IN CHAR A. 
S61 LO HL»LEK2 
S42 - PLUSH HL SRETURN ADDRESS 
S43 
B44 P#tHADVITIONAL FOR DELETE 
S65 CP OCH : 
S44 wh NZ,LERS FARCEPT ALL EXCEPT DELETE 
S7 BIT 5S, (1Y-Y+FLAaGSs2) ;° REPEATED DELETE’? 
S43 JR NZ, LES tg 
batik BIT oo CLY-Y+FLAGS } 
370 wR Z,INSA 
S71 3 tte 
bay AP sae : 
S73 LEEKS CP TABLOC+1 . 
574° JR NG, INSA SIF PRINTABLE 
75 


LEK 4: 


THERE [F CONTROL CHARACTER 
CF EUT_UCC 


JR C,INSA SIF UNRECOGNIZED 

Ce LOH 

JR CU LERS $70 Lice Lip 

LO Bo, 3B t= NO. BYTES NEEDED 


LO DLA 
CP ATLOC 


"JR CO,» LEK4 SIF COLOUR CONTROL 


SHERE FOR TAR OR AT 
INC BC SHO t= 3 FUR AT UR Tas 
BIT LINFLN, (1Y-Y+FLAGX) 3 
JF 2, REEL STERMINATE UNLESS INPUT CINE 
TALL ROH ' 
LO ELA 


CALL ROICH 
PUSH DE 
LO HL» (KLCUR) 


al aids dla nad ain aden ny 


§ 


©® 6 8 @ 6 @ &@& 


© 


ee 6 


- 


KEYEOARD 10_2 FAGE 
Loo OBI CODE M STMT SOURCE STATEMENT ASM S.% 
OOD?  FOTRO7ES IS RES O. (1Y-Y+MODE) SEXIT E MOLE 
OOnR. Cooo00 X 4 CALL INSERT 
OOnE tt 5 FUP BC: : $B t= 1ST CHAR, C t= 2NO 
CONF 23 Ses INC HL 
COE C 70 P7 LO (HL), B 
c a3 Soy INC HL 
QOOED 7. : Spy LO (HL) 
OOES 180A £00 AR LIA7 
LOL 
602 INSA: ;INSERT BYTE A BEFORE THAT POINTED TO BY (KLICUR), 
, . S03 SINCREMENTS (KUCUR) & ALL POINTERS FURTHER CN. 
AGES FOOROTRS 604 RES 0, (1Y-V+MOnE) SEXIT E-Monc 
OOEF Banga £05 LO HL» (KLUCUR) 3 HERE WITH SYMBOL IN A 
OOERR cpooes X 606 CALL INS 5 MOVE UP ALL 
OOF iz 607 LIAT: LO (ME) .A 
oOFO a “03 INC DE 
OOF t EOS SEU 409 LO (KOUGUR), DE , 
OOFS ote. 410 RET . 
AL 
OOFS = SF 612 LERS: LE ELA s HERE WITH COUE IN A IF CONTROL CHARACTER REAn 
OOF7 1400 613 LO 090 
GQOFS: BLFDOO RR 414 LO HL: CC TAB-EDT_cc 
GOFL 19 615 Ang HL, LE 
OOFR SE — «&AG LD E, (HL) 
OOF-E 19 417 ADD HL, DE 
COFF ES é1¢' PUSH HL 3 PICK UF ADDRESS OF COUE TO FERFORM-ACTLON 
o100 2A BSC 619 LO HL, (KUCUR) 
~O103 ny 420 RET SHUMF TO SUBROUTINE TO DEAL WITH CONTROL CHAR 
21 PWILL USUALLY RETURN TO LEK? 


ACTIONS FOR CONTROL CHARS IQ_2 PAGE 4 
Lae Ort CUDE M STMT SaueCE STATEMENT ASM S. 2? 


+HEAD ACTIONS FOR CONTROL CHARS 


ISTHE SUBROUTINES DEALING WITH THE CONTROL CHARACTERS ENTER WITH 
; HL = (RCUR), A = CODE CF CONTRUL CHARACTER, & ALIWEST 
H (KOCUR) AS APPROPRIATE. 

3THE RETURN ADDRESS IS TO Lek 


COUT ABRS : 
O104 OP VERE EDIT<$ 
O105 4 DEFR LEFT-—% : 
O104 LA DEFER RIGHT-# . 
107 50 DEFER DOWN 7 8 
O108 95 DEF UP-$ 
O10 FO 4 DEFR RUEOUT-$ 
C10A  7E SBS DERE ELDONE-t ‘ 
‘OLGR CF &37 DEFR FROCOM~$ 
o1oc D4 . 638 DEFER LECG-$ SINSA FOR UNKNCWR CHAR 

Aer 
440 EDIT: + EXTRACT CURRENT LINE FROM PROGRAM 

O10D - 2A4ceie . L-LED HL» (EPRI) 

EDITHL! SEX TRACT LINE HL 
O110  FLCBS76E AIT INPLN, (IY-Y+FLAGX) 
O14 CSF Rod JF NZ, DELLE SIF IN INFILN : 


OLL7 COOOOE 
OLLA COG 


CALL FIND 
CALL GET_LN 


(O11D 7A Lo A.n 
OME BS OR E 
OL1F CAFBOL JP Z,DELK 3 IF NO CURRENT LINE 


jWE NOW CHECK THAT THERE IS ROOM, WE WANT TO BE ABSOLUTELY 


; SURE THAT FUTLSR DCESM’ T THRUW AN ERROR, SC WE CHEC! For 
; SPACE FOR THE PROGRAM LINE, + & BYTES FOR LINE NO. & NL» 
$+ S BYTES FUR LUCK, 

C122 ES FLUSH HL 

O1Z3 22 ING HL , 

O124 9 4E LU (HL) 

O125 23 INC HL 


OL2G 4b 
2 Ole? ZL1OQAOO 
OL2A 09 


LO By (HL) 
LO HL,10 
ADO HL» Bt 


O12B 44 LO BH 

O,2r 40 LOO CL 

oven choode CALL CHE SZ 

O13sa TOFBOY CALL DELLE 

OVSR SAS LE LO HL» COUFUSHL ) 
ES EX (SF).HL 
ES PUSH HL 
EFF LU A, HIDLR 
CHOOOO CALL SELECT 
£1 Por HL 
2k 


. 


DE HL SHL f= > (ST (MS) BYTE OF LINE mo, 
DEC (1Y-Y+E_FFC) S50 NG PROGRAM CURSUR IN LINE | 
CALL LFO ’ 

INC CIY-Y+E_PPC) 

LO HL, (E_LLINE) 


FESSOr 
Cooage 
FOS40F 
SASSI 


° 


ACTIONS FOR CONTROL CHARS TOL2 FAGE 7 


Loc BU CODE M STMT SOURCE STATEMENT j ASM 5.9 
0148 74 INC HL ; 
OL4e G77 IND HL 
osan ING HL 
O14E INC HL 
OL4E LO (KUCUR) HL =o 3 (KLUCUIR) f-> 181 CHAR AFIER LINE NO. 


FUP HL 
cuneOe = Xx CALL SELLHL 
op RET 
CIOWH : SCURSOR Laon 
O157 FICES74E HIT INPLN, (LY-Y+FLAGX) g 
OSB = 2008 JRONZ,LDNS SIF INPUT DATA 
OSD  21495C LO HL EPP 


O1460 -CoOOOO Xx 
O163 1840 


CALL NEXT_UL 
JR LU 


O16 FOS40010 


LIONS: LO (IY-Y+ERR_NA)» “H°~-“AC +2 3 ERROR H, STOP IN INFUT 
O1469 Leip . 


AR E_ DONE 


LEFT: 3 CURSOR LEFT 
O14B COPsol R *, CALL LOLIM? 
O14E 1205 JR LOR? 
RIGHT: 3 CURSOR RIGHT 
3170 LO A, CHL) 
O171 Cr NL 
O173 RET Z sIF AT END OF LINE 
O174 INT AL : 
OQ175 - LOR?: LO (KOCUR). HL 
O1ye RET 
RURCHIT: $ HERE WHEN RUEOU) INPUT 
OL7? CUPSOL R ; CALL LULIM? 
DELSYM: 3 SRTN TO DELETE SYMEOL POINTED TO BY HL 
Or7e OLO100 i LO BCL 1 
OLVF Cs000Q0 x de DELREC 
ee ROGEDs SREAD (& FORGET) 2 CHARACTERS & STOP EDITING. 
OHVED Choa x CALL ROCH 
OVSs CLAOOO Xx CALL RODCH 
E_DWINEs SMEWL INE 
O13 £1 FOP HL SWASTE RETURN TO LEK 
O1ey Et BOP HL SWASTE BLEEP 
OLSA Ei LEDS: FOP HL 
O1eB 2220SC /LO (ERRISP)»HL SRESTORE GLO CERROSP) 
' FOCKOO7E BIT 7, (IY-Y+ERR_ONF) 
co RET NZ ° 3FROM EQITLK, IF NG ERROR 
FO LO SF,HL 
tC? RET 
LOLIM?s PRETURNS FROM CALLER LF HL -> LH ENDL CF LINE OR BEFORE: 
a H ELSE HL t-> PREVIOUS CHAR & RESURNS PROPERLY, 
OLS 7 Scr 


ic 
OLS a CALL KBEEG 


> © @©@ © © @8 8 8 © &@ & B&B B&B Be A 


’ 


ACTIONS FUR CONTRUL CHARS Ia_2 FAGE & 
/ bec UES COWE M STMT SQURCE STATEMENT ASM 5.9 
OL189 EnS2 730 SBC HL, DE 3NB CARRY STILL SET 
OLPE 19 ADO HL, DE 
orec 23 INC HL 
O1eer CL PoP HID 
OLPE pe: RET ¢ 31F CANT BACKSP ACE 
OLEF cs PUSH BC 
ayaa 44 LO BH 
OLAL 40 LO Cok SBC := ORIGINAL HL 
; LLL2: SHERE WITH DE -> CHAR ENCWN TO BE STRICTLY BEFORE rHAT AT (BC). 
SWE WANT TO SEE IF BI -2 NEXT .CHAR AFTER IF $0, (DE) 1s 
3 WHAT WE WANT: ELISE MOVE CIM, 
OLAZ 62 LO HOD : 
OLAS 4E LO LIE sHL 2-2 CURRENT CHAR 
O1A4 23 INC HL 
OLAS 1A LO A, (DE) 
OLAG EGFO AND OFOH 
O1AS FELO. CP 10H 5 
OLAA OOF JR NZ,LLLS 
OLA 23 INC HL 
OLAL ASSERT TABLCCSAT_CC+1 
OLAL 1A LI A, (QE) 
OLAE D417 SUB TABLOC® 
OLBO cEoo anc A,oO 
Ole 2001 JR ONZ,LLLS 
OLE 5 INC HL 
OLES SS LLLS: AND A 
OL FAG SEO HL. BC 
OL ‘7S7 Aun HL, Be : 
OLR 73 EX DE,HL sHL ¢-> CURRENT CHAR, DE :-> NEXT CINE 
“OLBA JS? JR OC, LLL? sMOVE ON 
OLE Ts 760 RET 
7&1 
762 UP: 3 CURSOR UP 
O1N0 FOC S74E 763 BIT INFLN, (1Y-Y+FLAGX) 
O11 co 7é4 RET NZ | SIF 1NFUT DATA 
oD BAEC 7&5 LO HL, (ELF) 
OTS oooooa 7b4 CALL FINULL 
OLS ER 7&7 EX DE,HL : $s GET HL -> PREVIOUS LINE 
o1cs CHAO 768 CALL GET_LN 
‘ T&D LI HL, ELPPC+H4 
770 CALL DE LHL 
7710 LUIS CALL LIST 
WE LU A, COM ST jNE ASSUMES EDIT_K CALLED ONLY FOR COMMAND LINES & 
OLLI7 773 JF SELECT ; INPUT Dara 
774 
775 PR CHM: . 3PRINT COMMA — TERMINATES LINE DAIA 
OLA 7/4 BLT LINPLN: (1Y-Y+FLAGX) 
OLE 777 JF Z,E 00NE 
OLED W7S LEAT AS IP OINSA 
72 
‘ 780 BLEEP: SHERE WHEN ERROR DURING EDIT_LE 
731 3IF HE INPUT IS FROM THE KEYBOARD, [HEN WE CLEAR (ERRUNR) oO 
782 : -1 & GO BACK TO LEK1 FOR THE NEXT KEY. 
783 SUTHERWISE, WE WANT TO ABORT ELITLK: WE RESTORE THE (ERROSP) 


ACTIONS FOR CONTROL CHARS I0_2 PAGE 9 
LOC ORY CODE M STMT SuURCE STATEMENT : ASM 3.9? 
; 3 THAT WAS IN FORCE WHEN EDIT WAS CALLEL & ABORT VIA THAT. 
O1ES = FOCRROS4 BIT RETPOS, CLY-Y+RLAGE2) 
OLE7 BSAL JR 2,LEDS 3TO ABORT 
OLE? -OS4O0FF LD (LY-Y+ERRONR) 2-1 
OLED 1400 : LO na 


OLVEF FOSEFE 
OLE SLS01A 


7 
7 
7 
7 
7 
7 LO &, (LY-Y+FART) 
7? 

OES CHooeaa » 
7 
/ 
7 
7 
7 
7 
7 
7 


LUO HL, 4500 ! . 
oe eee SABOUT 1 8 AT 2 OCTAVES BELOW MIDDLE ¢ 
OFS Pea4qoo R WP LEKL 


DEL_K SDELETE KEYBOARD BUFFER 
'  SPRESERVES HL 

SASSUMES NO WORKSPACE TAKEN UP FOR STRINGS ETC. 

ES 


PUSH HL 


GN PGP Whe OV MN G 


CDE 40% R CALL KRENDS ' 
= DEC HL 
x CALL DEL_UE SDELETE OLD BUFFAR (EXCEPT NL & STOF) 


LO (KOCUR)» HL 

LO (IY-Y+MOne),0 
FOP HHL 

RET 


O20A Et 
N2O0B Cc? 


TV) IF BIT CLHS OF (TVFLAG) SET THEN CLEARS LOWER HALF oF 
SCREEN (THIS RESkIS THE BIT). ; 

30) IF MODE CONTROL REY (CAFS LOCK, EXTEMUED OR GRARHIGS MOnE) 
THEN CHANGES MOE & REQURNS AS THOUGH NO KEY PRESSED, 
WITH BIT ECHREG OF (TVFLAG) 2 T . 

(VI) IF ATIRLBUTE CONTROL, THEN RETURMS WITH KEVEYTE & CHANGES 

5 ENTRY POINT SO THAT NEXT CALL OF INCH GETS DATA EYTE, 
BIT ECHREQ, (1Y-Y+TVFLAG) 
TALL NZ,» ECHO 


INK: SINCH ROUTINE TO READ KEYBOARD 
$(1) ECHOES ITF BIT ECHREG® OF (TVFLAG) IS SET (ECHO RESETS THE 
3 BIT). 
3(1T) TF NO KEY PRESSED THEN RETURNS. 
sELSE, 
3(ILT) RESETS BIT KEYHIT UF (FLAGS) 
3 
? 


awe we ve 


O2Or FOCBOR SE 
O210 C4S102 R 


A7 AND A 
FOCHOLSE BIT KEYHIT, (LY-Y+FLAGS) 
ce RET Z 3NQ KEYHITS CARRY [3 CLEAR 
AQT LD A, (LAST_E) 
FOCmBOLAE RES KEYHIT, (1Y-Y+FLAGS) 
220 FS “PLUSH AF 
O22 1 FOU BOUSE ‘ ; BIT CLHS, (IY-Y+TVFLAG) 
O225 CA0000 X.. S2g y CALL NZ,CLLHS 
O229 Fi PUP AF 
FEZO CRs 
SOV dR ONO LIKG SUNLESS CUNTROL CHAR 
FELO [PR LOH 
3020 JWR NC LIES SIF COLMUR GONTROL 
FEOS ‘CR CSLUKC , 
SOO JRO NCL LIES : 
sHERE IF FLASHING, HIGHLIGHT OR INVERSION CONTROL - 
Og3s A? LD BA 


ACTIONS FOR CONTROL CHARS 


Loo ORI CODE M STMT 


0236 


E601 
4F 
72 
iF 
L612 
182A 


2009 


O241 S2L4A5C 
On44 SEOS 
O24S. AE 
reese 77 
LOE 


FEOE 
o24c DS 


D400 
214150 


2002 
2400 


BF 


cy 


47 
E407 
ae 

SELO 
CESS 
2004 


aC 
FOZ {ER 


117102 
1E0%6 


SAODS 


O27 t 

OE74 110002 
: 

O27Y BASES 


FLICHOSDE 


LIK: 


LIK32: 


LIK7: 


R 


SOURCE STATEMENT 


TO_2 - FAGE 10 j 
ASM 5.9 
AND 4 
LE CA, sc t= DATA BYTE 
LD A.B 
RRA 


ADD A,FORECC+2 FA t= 
JR LIEK? 


KEYBYTE 


i 


“UR NZ; LIKE2 


SHERE IF CAPS SHIFT Lack 
LD HL,FLAGS2 
LO Asi. S5HL.CAPS_L 
XOR (CHL) 


LO (HL).A 
JR LIK4 
2 
.. ASSERT CGRML KCSTML KC+1). ANL. (FG_KC=GRM_ KO+1) 
“CP TMUKC 
RET ¢ sIF 1- BYTE CONTROL OTHER THAN K/B MODE CONTROL 


SHERE IF EXTENDED OR 
SUB TMLEC-1 
LO HL, MODE 
CPF CHL) 


GRAPHICS MODE CONTROL 
pA t= 2 FOR GRAPHICS, 1 FOR EXTENDED Mone 


LO (HLA 
JR ON2,LIK4G SIF ENTERING MODE 
LO (HL), O 3 ELSE REMURN TO K/L/O MOE 


SHERE TO FINISH WP WHEN E/E MODE CONTROL 

SRETURNS AS VHOWGH NO REY PRE ira 
SET ECHREM. CIY-Y+TVFLAG) $7 CW MODE CHANGE ON CIRO 
Cr A sSET NZ ; 
RET 


JHERE WHEN COLQUR CONTROL 
LO B.A 
ANE 7 
LO C.A 
LO A, FORECE 
RIT 3B 
JR ONZ,LIK7 
INC A 5A 8 
SHERE WITH 2 CHARS 
LO CIY-Y+K_OATA).& 
LO DELIRS 
HR LIKES 


ra DELIVER: A = 18ST, € = SNL, 


SENTRY POINT TO DELIVER 22ND CHAR, FROM (K_DATA). 
SENTERS HERE BECAUSE THE INCH ALDRESS FOR CHANNEL K HAS BEEN 
; CHANGED, 
LO A, GR DATA) 
LO DE, INK 
SHERE TO 
3 IN A 
LO HL, CCHANS_) 


CHANGE INCH ADDRESS FOR CHANNEL K Tc DE & 


DELIVER CHAK 


2” 


ACTIONS FOR CONTROL CHARS IdLz ; FAGE 11 


Loc OH! CODE M STMT SQURCE STATEMENT : Asm 3.9 
B92 ASSERT CHAN_K=0 
23 . 893 INC HL: 
23 od INC HL 
73 : » 89S LO (HL).E 
a3 B76 INC HL 
72 SY7 LO (HL).D i 
27 ere LIK?: SCF ‘ : 
OP goo RET 
i +R RAgIMET vog a ACs a RS mipie os : ; 
aj. POL (ECHO: remit sWRITES KEYBOARD BUFFER TO CURRENT CHANNEL (ASSUMED TO Be 
FOR a = 45 LOWER HALF UF SCREEN). “ 
POS ; SADIUISTS (MODE) & BIT LMODE OF (FLAGS). 
, 904 : sNEWTRALIZES SYNTAX ERRUR FOLNTER. 
POS 7 7 TEMPORARY COLOURS #= FERMANENT ONES. 
YO SRESETS BITS CLHS & ECHREG OF (TVFLAG), 
VO7 SPRESERVES (SPOSNL) & (DFCLL). 
203 SENTER WITH (ECHO_E) = CioRDS OF END UF PREVIOUS ECHO, RETURN 
DO? 3 WITH (ECHO_E) ©= COORDS OF ENL OF NEW ECHO. (THE ENL OF AN 
910 $ ECHO IS THE CHAR POON FAST IT.) 
Pil F SIF ERROR (OU) OF SCREEN SHOULD BE THE ONLY CINE FOSSIBLE), THEN 
vi2 ; 3 BLOWS A RASPBERRY & RETURNS NURMALLY, RESEITING (i&KRONR). 
COOooo X "13 CALL RATS : : 
FUCBO2YE 214 RES ECHRER, (LY-Y+TVFLAG) 
FucRoZAk PLS RES CLHS, (1Y-Y+TVFLAG) 
PASASC TLS LO HL, (SPOSNL ) 
917 * PUSH HL 
ZASOSI PAS LO HL: (ERRLSP) 
ee) DL FUSH HL 
2ACBOS Ro P20 LO HL»LEW7 SABORT RETURN FOR ECHO 
ES P21 PLUSH HL 
myleia a LEt (ERR_SP). SP 
. pra) LO HL, (ECHO_E) 
Ia4 © PUSH HL 
5 SCF . i e* 
aZAl CUF POS R TALL KEBEG 
OZA4 EB EX DE.HL 
OLAS CHooag X CALL FUT 
OZAS ER EX DE.HL 
O2A? Clhooag Xx CALL PRoOCUR 
OZAC “ LO HL, (SPOSNL) 
ODA 3 EX (SP).HL 
O20 EB EX DE,HL SDE := ORIGINAL VALUE OF (ECHOLE) 
sIF WE HAVE NOT YET REACHED THE OLD POSITION OF eas THEN 
3 WE MUST FRINT SOME SPACES. 
$DE = ORIGINAL (ECHO_E), (SF+2) = ORIGINAL (SPOSML), (SF) = 
5 PRESENT (SPOSNL). 
ODRL x CALL ROATTS 
O24 LENS2: LO A, (SFOSNL+1) 
OZR? Sua D 
OLS : » JR C, LES 31F PAST THE LINE GF OLD (ECHO_E) 
OUBA 2908 JR NZ, LEUS4 sI1F NOT YET REACHED IT 
OBC 7E LO ADE $IF ON LINE. MUST CHECK COLUMN 
fabs) 8) Foveso SUB CLY-Y+SFOSNL ) 


osc BOLE JR ONC,LEOS 


a 
e 
’ 


ACTIONS FUR CONTRuUL CHARS Ida F 
Lact OB! ooh M STMT SOURCE STATEMENT ; 


OEC2 - BELO "46 LEOQS4: 
4 cs - G47 
ba CLieeaa X 94a 

¢ & Ot Sas 

OACy 12e9 9a 
‘ SL 


2 LEOTs 


1400 
FOSEFE 
BAILA 


* 
Lt a 


“fh 


oh 


me 

= 

“OO S i a ee 
an EE I SA 


+ 
So w+ 


mm 
m 
a 


WOM ONS 


KBENDSs 


O7F4 846150 
OEE? . 2H* 
OLFB SA? 

Nig fs KBBEG: 


OLFY EDSBS yout 
FOCE37¢6E 


“Re 


DESLUG: 


LO A. SPACE 
FLUSH DE 
CALL SENOTV 
PoP DE 

WR LESS 


SHERE WHEN ERROR (COUT OF SCREEN)? BLOW A RASPHERRY & RESET 
H CERRUNPD. : | 
3 (SF) = ORIGINAL (ERRLSF), (SP+2) = ORIGINAL (SFCSNL). 
Lo n,0 : ; = ‘ 
LO BE» C1IY-Y+kSRT) 
LO HL, 4800 
CALL FARF SAFPROX. 1 5 AT & OCTAVES BELOW MIDDLE ¢. 
LO (CIY-Y+ERRLNE)» 1 : 
LO VE, (SPUSNL > 
JR LEOB2 2 


POP fe 

POP HL 

FOP HL 

LO (CERRISP). HL 

POP BC IAC f= COORDS OF START OF ECHO 
PUSH DE 

CALL SETTVC 

POP HL SHL t= COORDS OF END OF ECHO | 
LD CECHOLE). HL / ‘ 

LO CLY-Y+X LP Tik+1),0 

RET 


$DE, HL '-> KEYBOARD BUFFER ENDS, TAKING BIT INPLN OF (FLAGX) 


3 INTO ACCOUNT. 
SDE t= (E_LINE) OR (WORESP), HL t= (WORKSP)-1 OR (STEBROT), 
SFPRESERVES ABC, RESETS CARRY. 
LO HL, (WORKSF) 
NEC HL | 
AND A ' : , 
?0E = KEYBOARD BUFFER BEGINNING, TAKING BIT INPLN OF (FLAGX) 
3 INTO ACCOONT, 
sMUST BE CALLED WITH CARRY SET. 
(ELLIME) OR (WORE Se) 
AES ABT & CARRY. 


LO LE, (E-LINE) 
BIT INFLN, (I1Y-Y+FLAGX) 

RET Z 

LU LE» (WORKSP) 

RET ¢ 7FROM KEBEG 
LO HL, (STEBON) 

RT FFROM KBENDS 


. 


FROM LINE BUFFER STARTING AT CHL). 


SREMOVES SLUGS 


;NE SLUG & ML CANNOT BE DATA BYTES UF COMPOST IE 
3 ERS, FOR WHICH I! SUFFICES TO ASSUME THAT 
3 TAR & AT CONTROLS D0 NOT APPEAR. CIHEY CANNUT BE ENLERED 


Toe ag ey Rll gh ad IE he RTE OR, ee ee ghee ene Oe eae I, 


Er 


SoS s&s ® #® 8&4 6 


eS 8&8 & 8 8 


& 


® 8 8 @€® 8 @6 


Peon 
SOF 1 


COL HAR S 


mM STMT 


Tadd 
LOO] 
1002 
1 oO Q = 
1904 
X 1OOS 
1004 
1007 
1008 
1009 
LOLm 
1O.1 
1012 


SORE 


LOGS: 


SFM ee Ge ea ee gen een ee ee ee ee ee 


In? 


STATEMENT 


3 FROM THE KEYROARL. ) 


ASSERT (C7CSLUG) AND. C7<ML) 
LO A, (HL) 

CF SLUG 

LO BC, NOSIZE+1 

CALL Z,DELREC 

LO A,(HL) . 

Tmt Hb 

CP ONL 

JRO ONZ,LOG2 

RET 


LOAD ENN om AOL ATA EON E A te i ty htt nar ashanti ae Ai Nahe hil ih te sn 


sesitcbibhank tien ient nie apes 4 


asthe aga ae Sede el 


Wetbedleseen Sc mie es 


eo ° 


ray 


® © © 0 6 


oO 6 0 8 6 


wa 


INITIALISATION & 


Loc 


o000 
-a00! 
felele kc} 
0007 
on0s 
o00t 


O00C | 


Pr) 


INFUT 


OBJ COKE M ‘STMT 


F3 
SEFF 

EDSBRZSC 
De: ; 
ED4BB45. 


EDSBSSSC 


1 
419 
420 
421 
422 
422 
424 
425 
426 
427 
428 
429 
430 

31 
432 
433 
434 
435 
434 
437 
433 
439 
440 
4al 
44e 
443 
444 
445 
446 
447 
443 


449 © 


450 
451 
452 
453 
454 
4ss 
45h 
457 
453 
459 
460 
Aol 
4&2 
463 
444 
465 
Abts 
467 
468 
469 
470 
a71 


ELIT PAGE 1 

SOURCE STATEMENT ASM 3.9 

#HEAL INITIALISATION & INFUT 

#LIST ON 

#INCL MORESYSV 

BANK_ENABLE Eun 6499H 

CALL_ BANK Eau 65 00H 

MOVE_SZ Ei URIVES-&000H 

DkST7 Eau OFF FFH~MOVE_SZ+1 

FIX Eau DEST7-6000H 

CALL_VEANK Eau CALL_BANK+F IX 

GOlOLBANK Eu 6&5 72H FADDRESS OF "GO TO BANK" BANK SWITCHING 
3 AWARD. 

XFER_BYTES Eu 6722H PINDIRECT LATA TRANSFER BETWEEN BANKS. 

GOTOLEXT ° EQu 6315H sFOR INITIALIZATION CODE IN HOME BANK 
5 EXTENTION, 

SLvVit Eau O1ABH TADDRESS OF TAPE ROUTINES FOK SAVE, LOAD 
5 VERIFY AND MERGE COMMANDS. 

BLOSCT EQu OFF 4H SADLURESS OF INITIALIZATION ROUTINE TO 
3 BUILD THE SYSTEM CONFIGURATION TABLE. 

RESSCT Eau OC4(H SADDRESS OF RESET ROUTINE TO ADL DEVICES. 

PASSING Buu OF OFH SADDKESS OF ROUTINE (G PUSH PARAMETERS TO 


GLOBAL X_ 


~-3 THE BEU ROUTINES ONTO THE MACHINE STACK. 
GLOBAL INIT, SENDCH, RENGSZ,K NEW, SMINIT 
GLOBAL PUTDOIG, NEW, INSERT, INS1 


T HL, RESET, LCU2, CLEL, SEARCH, GET_LN» X_CALC 


GLOBAL SELECT, SEL_HL, INCH, RDOCH, SENDCH, ERRO 
GLOBAL LeD4,LED18,SRCHSC, CHINIT 


EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 


TCLHL 

FARP 

LINENO, FINDUL, RECLEN, DELREC 
PUT_8C,DEL_DE, LIST 

CHE.SZ, SYNTAX, EXCUTE, ENDSTT 

SENDTV, CLLHS, CLS, PUTMES, LDIVCU, STTVCU 

KCLS, RATTS 

DUMFPR, DELK, EDIT WK, INK, INSA, DESLUG, CLPR 


BOOTDEST EQU 64000H 


BOOTLLEN Euu 


27: 


BS_DEST EGU 6200H 
ES LEN Eu &S0H 
BS_SRO EAU 1000H 
BS_SP EQU 45CEH~ 
EXINIT EGU OSE7H 


KNEW: 


nyt 


s;NEW STATEMENT. 
SPRESERVES (PLRAMT), (U0G), (FART) & (PIP). 


LO A,-1 
LD DE, (RAMTOP) 


EXX 


LD 80, (P_RAMI) 
ASSERT PIP=FART+1 
LD DE, (FART) 


sKASIC 
sKSCAN 
LIST 


3 SYNTAX 
510.1 


INITIALISATION & 


Loc 


9010 
oo13 


O014 
oo1s 
0017 
Oo1L? 
0018 
oon 
OOLE 
OOLF 
0020 
OO21 
O0L2 
0023 
0024 
ooze 
0027 
o023 
oo2y 
QOZE 


ooze . 


OOZE 
og ca 


O083 
0035 


o042 
0045 
Q046 
0047 
O049 
O04t 
QO4F 
O32 
OOS 
OOsS 
OOS6 
OOS7 
QaeA 
OO38 
OO3B 
QOSE 


0062 


INPUT 


URI CODE M STMT 


2A7BSC 
oy 


ELS2 
19 

23 

30046 

a5; 

2803 

35 

28F 3 

2B 

De 
ED43B45C 


. EDS3S385C 


227B30 
Dy 


23 
22783C 
2B 


014000 
ED433e5C 


472 
473 
474 
473 
476 
477 
473 
479 
430 
421 
432 
433 
484 
485 
436 
437 
4o3 
439 
490 
APL 
42 
4d3 
494 
493 
4D 
4°97 
473 
403 
Sag 
S01 
S02 
S03 
S04 
505 
S04 
S07 
O32 
S09 
S10 
Sil 
S12 
S13 
o14 
S15 
514 
- 817 
S13 
S19 
S20 
S21 


G75 
22 


523 
S24 
525 


EDIT FAGE 2 
SOURCE STATEMENT ASM 5.9 
LO HL, (UDG) 
EXX 
INIT: sHERE FOR RAM 1ES1 WITH DE = _HIGHES ST ADURESS 10 BE TESTE 
H (FFFFH UN RESTART) & A = O FOR RESTART. -1 FUR NEW. 
LO BLA $B t= 0 FOR SWITCH-ON, -1 FOR NEW 
LO A,7 
OUT (BORDPT),A sSET BORDER WHITE 
LD A, 3FH 
LO 1A $S0 REFRESH CYCLE LOOKS LIKE READING FROM ROM 
NCP 3UN START-UP WE MUST HAVE 8 M1 CYCLES BEFORE ANY RAM 
Nor 3 ACCESS. 
NOP . 
NOP 
NOF 
NOP 
LO HD SRAM TEST UP TO & INC. DE 
LOLLE 
LI2: LU (HL) »2 $SET LOCS 4000 To DE TO 2 
DEC HL 
CP OH 
JR WZ,LI2 3LOWP UNTIL HL=3FFF. 
LI3: AND A 3SET ALL RAM Locs To ZERO 
“SEC HL, LE 
ADD HL» DE 
INC HL 
JR ONC LI4 IF HL > LE , 
“TES (HL) | 
JR Z,L14 
DEC (HL) 
JR Z,LI3 sLOOP UNTIL WRAP ROUND OR RUN GUT 
LI4: DEC HL sHL :-> LAST EXISTING BYTE UF TESTED RAM 
EXX 
-LD (PLRAMT), BC 
ASSERT PIP=FART+1 
LO (FARIS), DE 
LD (UUG).HL 
EXX 
INC B 
JR Z,LIS 31F WAS NEW STATEMENT 
LO (PLRAMT),» HL $3 (PLRAMT) !-> PHYSICAL RAM TOP 
LO OE, CHSET+H(“A%=" *+TOKO-90H) #S—1 3DE :-> END OF GEFAULT CHAR FOR 
LO BC, (TOKO-90H) #3 ; LAST USER-DEFINED GRAPHIC 
EX DE.HL 
LOOK > ;COFY UP DEFAULT CHARS FOR USER-DEFINED GRAPHICS 
EX DE.HL 
INC HL sHL ¢-> BEGINNING OF USER-DEFINED GRAPHICS 
LO (UDG) »HL 
DEC HL 
ASSERT PIP=FART+1 . 
LO BC, 44 3H s= 0, C t= 64 
LD (FART). BC #(FART) t= 64, (PIP) := 0 
: 3 ###ADDITICNAL 
LIs: LD CRAMTCOP ).HL 


INITIALISATION & INPUT 


Loc 


0065 
0048 
OO6B 
OO06E 
_ aO71 
0072 
0074 
o07S 
0076 
0077 
0073 


0078 
0070 
QO7E 
noe. 
008s 
onss 
oosB 
QOBE, 
QOSF 
oOoF.L 
ouz2 
O04 
OO97 
o07A 
oo7D 
ooFn 
OOAO . 
QOAZ 
QOOAE 
QOA? 
QOAL 
QOAF 
OOHZ 


OOn4 — 


OORS 
OOR7 
. OORB 
OOBE 
OOonZ 
oacs 
O0C4 
QOCA 
oocy 
oonag 


oon4 
oon? 
OODA 
oonID 


210030 
22265C 
210062 
2=2C05C 
2B 
SE3E 
2B 


223U5C 


EDSS 

0a 
FD2Z13A5C 
214068 
224F5C 
118004 R 
011500 
EB 

EDRO 

EB 

SE33 
S2805C 
S2SF SC 
3245350 


212305 
22095C 
FOSSCG 
FOSSCA 
21A404 R 
11103¢ 
OLOEOO 
EDBO 

AF ' 

D3FF 
FRCEOICE 
COQ000 x 
FD263102 
CLOOOa x 
AF 
FDCBOLES 
L1FAQ3 R 
Choodd x 
FOCBOZEE 


S1EEOO. R 
110060 
011D00 


* EDO 


- OBJ CODE M STMT 


S26 


527 
523 
52? 
530 
S31 
532 
533 
534 
525 
534 
537 
Sge 
539 
540 


SAL 
542 


543 
544 
S45 
544 
S47 
S45 
S49 
S50 
S31 
S52 
S53 
S54 
a55 
S54 
357 
S53 
beak 
S40 
S61 
S62 
543 
S44 
S45 
She 
S47 
S68 
S49 
370 
S71 
372 
S73 
574 
S75 
a7& 
u77 
278 
S79 


EDIT 
SOURCE STATEMENT 


NEW: LD HL»CH_SET-8#20H 
LD (CHARS), HL 
LD HL»MSTACK 


PAGE 3 
ASM 3.9 


LO (MSTBOT),»HL sUSE MSFACK AT THIS POINT 


DEC HL 


LD (HL), 3EH sEND OF GOSUB STACK 


DEC HL 

LO SP.HL 

DEC HL 

CEC HL 

LD (ERRSP)»HL 
3 te 


— LO HL, DRIVES 

LD (CHANS.)»HL’ 

LD DE, CHINIT 

LD BC, 21 

EX DE.HL 

LDIR 

- EX HL, DE 

LD A, 7.SHL. BACKG 
LO (ATIR_P)A 

LD (ATTR_T)»A 

LD (8ORDCR)»A 
ASSERT REPPER=REPDEL+1 
LD HL, (S.SHL.8)+35 


1 oats 


SINITIALIZE ATTRIBUTES TO BLACK ON WHITE 


LO (REPDEL),»HL $s (REPDEL) &= 35, (REPPER) t= & 


HEC CLIY-Y+KSTATE+KS_A) 


DEC CIY-Y+KSTATE+4+KS_A) 


LO HL,SMINIT 
LD DE, SITRMS 
LD BC, HIOSTR#2+3 


JKEYSTURES &*= -1 (EMPTY) 


LOIR SINITIALIZE HIUDEN & STANDARD STREAMS 


xOR A 

OUT COFFH),A 3RESET 
SET PR» (1Y-Y+FLAGS) 
CALL CLPR 

LO CIY-Y+0F_SZ),2 
CALL K_CLS 

XOR A 

SET 4, (IY-Y+FLAGS) 


i 


VIDEO HARDWARE 


ad ies He pp ey? 24 t.. 


pith coe the entire AArLEn 


7## COPYRIGHT NOT RESET 


LD DE,CFRT sCOPYRIGHT MESSAGE 


CALL FUTMES 
SET CLHS, (IY-Y+TVFLAG) 


* $### ADU I TIONAL 


LD HL, BOOT USSR 
LD DE, BOOT_DEST 
LO! BC, BOWT_ULEN 
LOIR 


sMOVE BOOT_SRC INTO RAM 


2 


CINITIALISATION & INPUT 


Loc 


OODF . 


OOE2 
QOES 
OOES 
OoOEB 


OOEE 
OOFO 
QOF2 
OOF 4 
OQOFS 


OOFS - 


OOF EB 
OOFE 
O10 
O103 
O105 


ChO040 
ZICE4S 
BECE6S 
ZLE7OS 
chis6es 


'SEQL | 
DSr 4 
DSFF 
CBFF 
OSFF 
‘210010 
1100462 _ 


‘013006 


OLO7 


o108 
O10A 


O10B 
QO1LOF 
0112 
O115 
O117 
-O11A 
“ O11B 
0120 
O124 
O126 
Q12A 
O120 
O1L2F 


0182 © 


O12346 


0138 
0136 
O13E 
O14. 
0142 
O143 
O146 
O147 
0149 
OL4E 


EDBO 
CREF 


‘IVSFF 


AF 
DSF 4 
Cc? 


FD263102 
CDO0d0d 
CN2204 
3E00 
CD1305 
ChO000 
CDOIOAO 
FOCBOO7TE 


2012 


— FDCBR2066 


2844 
2AS9SC 
CLOQOG 
FD3460Q0FF 
1380D 


ZAS9SC - 
225D5C 
Cood00 
73 

Bi 
C23B04 


FEOD 
Z2aC0 
FOCB3046 


>< ax 


S80 
S91 
S82 
o3 


ce 4 


S85 ° 
| SS 


537 
S83 
539 
S70 
Se. 
52 


Ba 
Ses 


a4 
Svs 
SIG 
St7 
baked) 
S99 
600 
601 
602 
603 
404 
405 
606 
407 
603 
409 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
&20 
421 
622 
623 
624 


é25 


EvIT 
‘OBJ CORE M STMT SOURCE STATEMENT 


' CALL BOOT_DEST 


LO HL, BS_SP 

LD (BS_SP).HL 
Lu HL,EXINIT 
CALL GOPOLEXT 


BOOT_SRC: 


AUTLST: 
LEDS: 
LED2: 


LEDZ4: 


LEDS: 


LD A121 

OUT (DKHSPT),A 
IN A, (HREXPT) 
SET 7,A 

QUT (HREXPT),A 
LO HL,BS_SRe 
LO DE, &S_0EST 


PAGE 4 
ASM 3.9 


SINITIALIZE BANKSWITCHING STACK POINTER. 


#END OF INITIALIZATION IN THIS MODULE 


sCODE TO BOOTSTRAP BANK SWITCHING 


;SELECT HOME RUM EXTENSION 


, = Ne os fe 
my § deccctiotn » Come +4 COI Y Ae Rot 23° 


J prove’ JOG 


AY 


LD BC, BS_LEN 
LOIR 

RES 7,A 

QUT (HREXPT).A 
xoOR A 

UUT (DKHSPT).A 
RET 


SRESELECT HOME ROM 


5 RE 


SAUTOMATIC LISTING & INPUT NEW LINE 
LD (1Y-Y+OF_SZ).2 


CALL LIST : Pete tae 
CALL CLEL prey pot fee nitiates ae 
LD A: COM_ST 

CALL SELECT 

CALL EDIT_K 


CALL SYNTAX 

BIT 7, (1Y-Y+ERR_NR) 

JR NZ, LEDS sUNLESS SYNTAX ERRUR 
BIT RETPOS, (IY-Y+FLAGSZ) 

JR Z,LED4 iFUR ERROR MESSAGE 
LO HL, (E_LINE) 

CALL DESLUG 

LD (IY-Y+ERRNR),-1 
JK LEDS 


sCANCEL ERROR 


SHERE TO DEAL WITH COMMAND OR 
3 SYNTAX HAS BEEN CHECKED, 
LD HL, (E_LINE) 
LD (CHADD). HL 
CALL LINENG 
LO A,B 
oR C 
JP NZ, LEDS 
RST IGNSP 
CP NL 
IR Z,AUTLST § DON’T EXECUTE LINE IF NULL 
BIT ALOS, (1Y-Y+FLAGS2) 


PROGRAM LINE AT (E_LINE) WHEN ITS 


5 IF LINE # NON-ZERO, INSERT IN PROGRAM 


" 
Loc 
we 
O14F 
O1G2 
O1s5 


0157, 


O15A 
o1sD 
O161 
O165 


O169 


o14D 


01790 


O171 
O174 
O176 


0173 
o17C 


O17k 
0182 
OLS 
O1&6 


O13A- 


018) 
0190 
O193 
O19%6 
OLy9 
O19R 
o19p 
O1A0 
O1A4 
OLA7 
OLAS 


Q1LAH 
Q1AD 
O1LAF 
O1BL 
OLBS 
O1B7 
O1LBB 
O1BF 
O1c2 
o1cs 
O1CE 
O1C7 
O1CA 


Poe 


t 
INITIAL 


ec eo | 


iy Hee 1 
ISATION., &, INPUT 


OB. CODE M SIMT 


tte 
C40000 
CpDoadO 


_ BBL? 


FRIG4F 
S2SC5C 
FLUCROLFE 
FOSGOOFF 
FD340A01 


teed 


- FR367C00 


Lm ate larale) 
polote 

7 

FO7EQO 


FEFF 
2833" 


FOCE7D7E 
282rnr 


FDCB7DF& 
ci 
32BBSC 
FD3G00FF 
ZA45SC 
22B85C 
3A475C 


SZ2BASC . 


ZABESC 
CBBC 
CEB4 
224250 
FDZ6OA01 
217001 | 
ES 
C30000 


3E07 
DSFS 
EFF 
DSFS& 
FOCRO2Z9E 
FOCBOLAE 
FOCERSO4E 
c40000 
BABADC 


210000 
FL74:37 


xX 
x 


X 


634 
635 
634 
637 
633 
439 
640 


“4 


SOURCE 


LED4: 


LED4A: 


LEDS: 


EDIT ; PAGE 5 


STATEMENT ASM SA9 
CALL NZ,CLS 
CALL CLLHS 
LD A, TV.LNS+1 
SUB (IY-Y+S_POSN+1) 
LO (SCRCT);,A $(SCRCT) t= 1 + NO, OF LINES WE’RE PREPARED TO SCROLL 
SET INTPT, (1Y-Y+FLAGS) 
LD (LY-Y+ERR.NR)»-1 © 
LD (1Y-Y+NSPPC), 1 ‘ 
4% ADDITIONAL 
LD (I1Y-Y+ERR_LN) +0 
3 tt 
CALL EXCUTE ;HERE TO EXECUTE COMMAND. 
3HERE WHEN PROGRAM HAS STOPPED. 
5 ### MUST WORK GUT EXACTLY WHAT NEEDS RESETTING wee 
HALT ;WAIT FOR INTERRUPT TO READ KEYBOARD 
548 ADLITIONAL 
LD A, (1Y-Y+ERRWNR) 
CP OFFH 
JR Z,LEO4A 
SREAL ERROR OCCURED 
BiT 7, (1Y-Y+ERR-LN+1) 
JR Z,LED4A 7JUMP IF “FALLING THROUGH’ 
s"ON ERR" IS GN 
SET 6) (IY-Y+ERR_LN+1) 
INC A s INCREMENT THE ERROR COME 
LD (ERR!T),A $SAVE THE ERROR TYPE FOR PROGRAMMER’S USE 
LD (1Y-Y+ERR-NR),OFFH = $NC ERRUR AFTER ALL 
LD HL, (PPC) FETCH CURRENT LINE NUMBER 
LO (ERR_C);HL  $SAVE IT IN ERR-C 
LD A, (SUBPPC) = $FETCH STATEMENT NUMBER 
LD (ERRS),A = $SAVE IT 
LD HL, (ERR_LN) 
RES 7, H | $DRUP FLAG BIT 
RES 6, H SAND “NO BREAK B1T" 
LD (NEWPPC) » HL 
LO (LY-Y+NSPPC),1 
LD HL,LED4 
PUSH HL ; 
JP ENDSTT 7% ; 
Lo A, 7 
OUT (OFSH), A 
Lo A, OFFH 
QUT (OF6H), A 
RES 3, (IY-Y+TVFLAG) — $CORRECTS INPUT CURSOR ERROR 
RES KEYHIT, (1Y-Y+FLAGS) 7IN CASE KreY PRESSED DURING PROGRAM (EG BREAK) 
BIT PRLEt 1, (1Y-Y+FLAGS2) 
CALL NZ,DUMPPR $1F PRINTER OUTPUT LEFT 
LD A, (ERR_NR) «$44 MIGHT WANT TO CLOSE FLOPPY FILES *## 
INC A 
PUSH AF 
LD HL,O 


LU (LY-Y+FLAGX) +H 


INET FALTSAT ION & INPUT EDIT PAGE 6 
Loc: 


QR) COLE M STMT SOURCE STATEMENT : ASM. 5.9 
Q1CD = FN7426 698 LD (IY-Y+X_PTR+1)+H SNEUTRALIZE (X_PTR) 
O1LDO © 220B5C 689 LD (DEFADD)»HL . 
0103 210100 690 LD HL,» CHANK+1 $##% CLOSE STREAM 0? 4x 
O1DS =. 2214650 691 LD (STRMS+(HIDSTR+COM_ST) #2).HL TSTREAM O == CHANNEL K. 
O1D9 CD2206 R 4692 CALL CLEL ; 
O1DG FDCES7AR 493 RES INPLN, (IY-Y+FLAGX) $IN CASE JUST EXECUTED INPUT STATEMENT 
GC1EO choo x 694 CALL CLLHS sIN CASE ABORTED FROM INPUT . 
OQ1ES FLCHOZEE = 695 SET CLHS, (1Y-Y+TVELAG) 
O1E7 1" bh POP AF : 
~~ 697 sHERE WITH ERROR CODE IN A TO PRINT MESSAGE. IT HAS THE FOKM 
698 ; CODE, SPACE, NESSAGE, ’,°, SPACE, LINE NOL, “#7, 
699 ; SUBLINE NO. 


1‘ 4 


IF WE ALLOW 5 CHARS FOR THE CODE, 2 SPACES, COMMA & COLON, 


700, 3 
7O1 3 4 FOR THE LINE NO. & 3 FOR THE SUBLINE NO.. THEN GUT OF 
702 3 32 FOR THE WHOLE LINE (ANY MORE MEANS THAT THE ERROK 
703 § MESSAGE SCROLLS UP & MIGHT OVERWRITE PRINTOUT) WE ARE 
oii ri 3 704 3 ALLOWED 20 FUR THE MESSAGE. 

O1ES sae 705 : LD BA 

O1E? FEOA 706 CP 10 

O1EB 3302 707 JR C,LEDS2 SIF ERROR CODE [5 A DIGIT - 

O1E0 C407 ; 708 ALL A, “A*-10-"0° 

OLEF Cocno4 R 709 LEDS2: CALL FUTDIG 

OFZ SEZO 710 ' LD A,” ¢ 

O1LF4 7il RET WRCH 

O1FS 73 712 LO AB 3A t= ERROR NUMBER 

O1FS 114802 R 713 LD DE,ERRMES 

OLE? CoO000 X 714 CALL PUTMES 

O1FS AF 71S . XOR A 

O1FD ALFSOS R 714 LO DE, INLINE 

0200 CoO00O 8 =—6X 717 CALL FUTMES 

9203  ED4B455C 713 Lo BC, (PPC) 

0207 Cpa0dG X 719 CALL PUT_BC 

O20A 3E3A 720 LD A, “t* 

o20C 721 RST WRCH 

o200 FO4E0D 722 : LO C, (1Y-Y+SUBPPC ) 

a210 0800 723 LO 8,0 

O212 CDOOOO X 724 CALL PUTLEIC 

0215 CoHoaGad X 72! CALL DEL_K 
726 SWE NOW ADJUST (OLDPPC) & (OSPFIC): 
727 SFUR REPORT 0 (END UF PRUGKAM) FHEY ARE LEFT ALONE 
72 iFOR REPORTS 9 (STOP STATEMENT) & L (BREAK KEY PRESSED AT ENL 
729 3 OF STATEMENT) (SUBPPC) IS INCREMENTED $0 THAT CONT DOES 

F 730 3 NOT REPEAT THE STATEMENT JUST DONE. 
: Tal THEN, FOR ALL REPORTS OTHER THAN ©, (OLOPPC) & (OSPPC) ARE SET 
732 5 TO (NEWPPID) & (NSP) IF THERE WAS A JUMP FENDING (THIS 
33 H WILL ONLY HAPPEN FOR REPORT L) oR OTHERWISE TO (PPI) & 
734 3 (SUBFPIC) . 

0218 SASASC 735 LD A, (ERR_NR) 

“O21B 3c 736 INC A 

o21C 2318 737 JK Z,LEDSS SREPORT 0. DON’T CHANGE (OLDPFIC) 

OZ1E . -FEQ9 733 CP 9 

O220 2804 732 i WK Z, LEDEZ s$1F STOP STATEMENT 

O222 FE1S 740 cP 21 


OZ24 2003 ' 741 JR NZ, LEUGS SUNLESS BREAK AT END OF STATEMENT 


ny 


INITIALISATION!& INPUT 


Loc 


0229! . 


O22? ' 
O229 
0229 
O22C 
O22F 
0232 ' 
O234 
O234 
0237 
Q239 
O23D 
O241 
0245 


0243 
0249 
OZ4A 
O248 
O25A * 
O25B 
0260 
o240 
O27B 
0270 
o28s 
O23? 
0295 
OBIS 
O2AR 
O2A4 
O2B7 
O2Re 
202 
O2C3 
o200 
o2nt 
OZEO 
OSEL 
O2F 4 
O2FS 
O305 
Q306 
O319 
OS1A 
O324 
0225 
O235 
324 
0345 
344 
O352 
O353 


OBJ CODE M STMT 


Pos40D 
reopes 
010300 
11'705C 
244s | 
CB7E 
gdo1 |! 
dy! 
EDS 
FDUS60AFF 
FDCEOLSE 
FICBOZ9E 
C31501 


=) 
4F 
cB 


- 46455854 


D2 
56617249 
E4 
23754273 


‘E7 


4F757420 
Fo 
4F757420 
EE - 
4E75460462 
E7 
52455455 
c2 
456E4420 
ES 
S3544F50 
F4 
4A9LE7S61 
F4 
496E74465 
ES 
4ESFGE73 
c3 
42524541 
F3 
4F757420 
Cl 
AISE7OO1 
E5 
4ESF 2072 
ES 
S3544F50 


AG4FS220 


742 
743 
744 
745 
74S 
747 
743 
749 
730 
7351 
732 


EDIT: PAGE 7. 
SOURCE STATEMENT ASM 5.9 , 


LEDS2: 
LEDé3: 


LED64: 
LEDS: 


ERRMES: 


INC (IY-Y+SUBFPC) 

seal (OSPPC=OLDPPC+2). AND. (NSPPCSNEWPPC+2). AND. (SUBPPC= FPC+2 
ASSERT SUBPFPC=NSPPC+3 

LD BC,3 

LD DE, OSPFPC 

LO HL,NSPPC ; 

BIT 7. (HL) « 

JR Z,LEDG4 sIF JUMP PENDING 

ADD HL» BC SHL t= SUBPPC o 

LUDK SUPDATE (OLDPPC) & (OSFPPC) , 

LO (C1Y-Y+NSPPC),-1 .3IN CASE JUMP WAS SET BEFORE ERROR FOUND 

RES LMODE, (IY-Y+FLAGS) $1IN CASE ABORTED FROM INPUT 

RES 3, (1Y-Y+TVFLAG) s ADDITIONAL 

JP LED 


SERROR MESSAGES: AT MUST 20 CHARACTERS EACH. 
QKFE SOH 3-11H MESSAGE 
DEFM “a? 3 
DEFB “K’,.0R.S0H , $0 ~ DOESNT AFFECT CONTINUE 
DEFM “NEXT WITHOUT FO’ ; 
DEFB ’“R’.OR.SOH $1 - VARIABLE AFTER NEXT FOUND, BUT NOT A 
QEFM “VARIABLE NOT FULIN? H CUNTROL VARIABLE 
DER “D’.0R.S0H _ 32 ‘ 
DEFM “SUESCRIPT WRUN? ; 
DEFB “G”".0R.80H $3 - OUT OF BOUNDS, OR WRONG NO. GF THEM 
EFM “OUT UF MEMOR? , 
DEFR “Y".OR.S0H 34 
DEFM “OUT OF SCREE’ 
DEFB “N*.0OR.80H . $5 - LOWER HALF OF SCREEN ONLY 
DEFM “NUMBER Tog BI’ : : : 
DEFE “G’.0R.S0H $6 
DEFM “RETURN WITHUUT Gasue - 
DEFER “B’.OR. 80H $7 - GOSUB STACK UNDERFLOW 
DERM “END OF FIL?’ 
DEB “E*. OR. S0H 73 
DEFM “STOP STATEMEN’ ‘ 7 
DEFB “T’.OR.S0H 39 — CONTINUE CARRIES ON WITH NEXT STATEMENT 
DEFM “INVALIO ARGUMEN’ ‘ 
DEFER “T’.UR. 80H , 3A 
DEFM “INTEGER OUT OF RANG’ 
DEFR “E*.0OR. 30H $B 
DEFM “NONSENSE IN BASI~ 
TDEFB “C*. OR. S0H $ 
TEFM “BREAK ~ CONT REPEAT’ 
DEFB “S”“.0OR. 30H 


OR NO ACTUAL PARAMETERS WHEN ONE IS WANTED 


30D ~ DURING PERIPHERAL OPERATION. CONT REPEATS 


DEFM “QUT OF DAT? 3 STATEMENT. 
DEFB “A”.0R.S0H sE 
DEFM “INVALID FILE NAM” 

DEFER “E*.OR.&0H 3F 
HEFM “NO ROWM FOR LIN’ 

DEFB “E*. OR. 0H 36 


DEFM “STOP IN INPU? 
DEFB “T*.OR.30H 
DERM “FOR WITHOUT NEX’ 


3H - CONTINUE REPEATS STATEMEN! 


¢ 


INITIALISATION & INPUT 
OBJ CODE M STMT 


Loc 


0362 
0243 
0374 
0375 
O331 
O3s2 
O373 
0394 
OZA1L 
OZAz 
OSAF 
OSBO 
O3BD 
O3BE 
O3CE 
Osc 
OSA 
O3D8 


OSEC - 


OSED 
OSFS 
OSF? 
O3FA 
OSFB 
OSFC 
0417 
0413 
O419 
041A 
0422 


0433 


- 0435 


0433 


O43B 
Od SF 
0442 
0443 
“0446 


O44a7 
044A 


O44B 
o44D 
O44E 


 O44F 


0450 
0453 
0455 
O453 


D4 
ADSETOOL 
ES 
APGET O61 
F2 ; 
42524541 
EU 
§2414054 
E4 
537461 /4 
F4 
4IbE7EO1 
ED 
Ab4EZO77 


C4 


S061 7261 
F2 
S4617065 
F2 
40497373 
D3 
20 
AQ 
/F 
20313933 
oD 


20313938 
FO 


3E10 
010000 
C3céol 


ED43495C 
SASOSC 
EB 
213304 
ES 
2A615C 
37 
EDS2 
ES 

é0 

&9 
CDO00O 
2004 
CoeedO 
coho00e 


R 


R 


726 
197 
793 
T?9 
B00 
Sol 
202 
ea3 
804 
805 
BOG 
S07 
808 
eoo 
810 
S11 
S12 
813 
814 
S15 
816 


“S17 


813 
S19 
820 
Se 

S22 
23 
e224 
B25 
S26 


827 — 


S28 
B29 
e320 
e314 
S32 
823 
e324 
e35 
S36 
237 
233 
39 
240 
S41 
842 
843 
844 
845 
B44 


‘847 


243 
gag 


EDIT 
SOURCE STATEMENT 


INLINE: 


CPRT® 


ERRG: 


LEDS: 


LELS2: 


DEFB 
DEFM 
CEFB 
DEFM 
DEFB 
DEFM 


DEFB 
EFM 


DETB 
DEFM 
DEFB 


DEFM 


DEFB 
DEFM 
LIEFE 
DEFM 
DEFB 
DEFM 
DEFB 
DEFM 


DEFM 
DEFER 
DEFB 
DEFM 
DEFB 
DEFB 
DEFB 
DEFM 
DEFB 


LD A146 


“T” OR. SOH 
“INVALID 1/0 DEVIC’ 
“E’.OR. 30H 
“INVALID COLO’ 

“R* OR. S0H 

“BREAK INTO FPROGRA’ 
“M”.OR.S0H 

“RANTUP NO GOO? 


“TD”. OK. 30H 
“STATEMENT LOS’ 
“TOR. 80H 
“INVALID STREA’ . 
“MOR. S0H 
“FN WITHOUT DE* 
“F* OR. SOH 
“PARAMETER ERRO? 
“R“.OR. SOH 
“TAPE LOADING ERRO’ 
“R*. OR. SOH 
“MISSING LRO’ 

DEFB “S”“.OK.S0H 


a ¢ 
? 


“ *,0R. 30H 


7FH sCOPYRIGHT SYMBUL 
* 1982 SINCLAIR RESEARCH LTD’ 


CR_CC 
CRCC 


7FH SCUPYRIGHT SYMBOL 


“ 19383 TIMEX COMPUTER COR’ 


“P*. OR. 80H 


LO BC.O 
AP LEDS 


LD (EPP), BC 


8 
5.9 


ONLY IF LOOP NEVER EXECUTED 


CONTINUE CARIES GN WITH NEXT STATEMENT 
OR TOO BIG: IN CLEAR ~ 
IN RETURN OR NEXT - 


WRONG TYPE OR WRONG NUMBER 


$TO OUTPUT ERROR MESSAGE G/O, NO ROOM TO ENTER LINE 


$ HERE WITH BC = LINE #, (CHUALID) -> CHAR AFTER LINE #, 


LD HL. (CHADD) 
EX DE,HL 
LO HL,»ERRG 


CARRY CLEAR, TO INSERT LINE IN FROGRAM 


PUSH HL 3IN CASE ABORTS 

LD HL» (WORKSP) 

SCF 

SbC HL, DE $HL t= LENGTH OF LINE INCL. NL : 
FUSH HL 

LD HB rm 
LD Lc sHL t= LINE # 
CALL FINDUL $HL $-> PLACE BEFORE’ WHICH TO INSERT 

JR NZ» LEDS2 ;IF NUT ALREADY A LINE 

CALL RECLEN 3 DELETE EXISTING LINE 7 
CALL. DELREC 


3 HERE WITH CARRY CLEAR & ANY XTG LINE DELETED 


Cn ee Pe oe | “a 


sod bh de be tba teed 


INITIAL ISATION & INPUT 
OBJ COLE M STMT 


Loc 


045B 
O45c 
0450 
O45E 
O45F 
O461 
0442 
04463 
O44 
0465 


0444 
O4467 

O44B 
O440 
Q46F 
0470 
0473 
0474 
0475 
0476 
O479 
Q47A 
0478 
0470 
0480 
O451 

O4e2 
04283 
O484 
0435 
O4846 
0487 
o4es 
0489 
048A 


2h 


Fi: 
C30B01 


R 


850 
e51 
&52 
853 


54 


855 
856 
£57 
Sok 

Sie 
S60 
861 
S42 
S63 
344 
865 
866 
847 
843 
849 
370 
871 
872 
$73 
374 
375 
376 
&77 
273 
a79 
aSo 
83 

S82 
833 
S84 
S35 


SOURCE 


LEDSS: 


EDIT 
STATEMENT 


JR Z,LEDSS 
PUSH BC 
INC BC 
INC BC 
INC BC 
INC BC 


DEC HL 

LO DE, (PROG) 
PUSH DE ‘ 
CALL INSERT 
POP HL 

LO (PROG), HL 
POP BC 

PUSH BC 

INC DE 

LD HL, (WORKSP) 
DEC HL 

DEC HL 

LODR 

LO HL, (E_PPC) 
EX DE»HL 

PUP BC 

LO (HL),B 
DEC HL 

LO (HL)»C 
DEC HL 

LO (HL).E 
DEC HL 

LO ¢(HL),D 
POP AF 

JF AUTLST 


PAGE 9 
ASM 5.9 


$ BC t=, LINE LENGTH INCL. NL 


sIF NULL 


$BC t= LINE LENGTH INCL. LINE #, LENGTH, & NL 


sHL'-> PLACE BEFORE WHICH TO INSERT 


§ ENSURE (VARS) GETS MOVED 
sBUT THAT (PROG) DUESN’T 


$I1F LINE NUN-EMPTY TRY TO MAKE ROOM FOR 1T 


sRESTORE OLD VALUE OF (PROG) 
$BC := LINE LENGTH INCL. NL 


5TO MAKE UP FOR DEC HL A FEW LINES BACK 
sCOPY LINE TEXT & NL 
sLINE LENGTH STORE 


sLINE # STORED BACK TO FRONT’ 


SWASTE ERRG 


GENERAL 'I/0 'ROUTINES *! ; 
OBU' CODE M' STMT SOURCE STATEMENT 


Loc 


ve 


te 


o4en 
0438p 
O4e 
0491 
0492 
0492: 
0494 
496 
O497 
0497 
aqeo 
0498 
049C 
O49C 
O49E 
04460 
O4Al 


d4A2 
O4A3 


O4A4 
O4A6 
O4A3 
O4AA 
O4AC 
O4AE 
O4E0 


0482 
OARS 
0488 
O4BC 
O4EF 
o4co 
o4cz 
043 


D Lo] 

bh ta) 
ta oS _& 
> + co] 
a x< x <x 


pra 
“S 
te 
rs 
aA x< 


a10a0 
0600 
OBO 
0100 
0100 
0600 
1000 


* 


FDCBO26E 
2004 
FDCHO2DE 
coc4o4 oR 
DS 

28FA 


07 


GSE 
337 
S33 
B37 
B90 
aot 
eye 
S93 
Bv4 
S95 
Be 
S97 
Sos 
Soy 
900 
POL 
FO2 


2903 — 


904 
905 
906 
907 
908 
909 
$10 
vit 
S12 
913 
914 
915 
9146 
917 
918 
P19 
920 
921 
922 
923 
P24 
925 
926 
927 
92 

$29 
920 
e351 
P32 
923 
O34 
935 
P44 
937 
938 
v39 


EDIT 


#HEADING GENERAL 1/0 ROUTINES 


CHINIT: 


ERRJ 


SMINIT® 


ROCH: 


LRC2: 


INCH: 


3 CHANNEL 


ASSERT CHAN..K=$-CHINIT 


DEFW SENDTV 
DEFW IN_K 
DEFB “K’ 


# CHANNEL 


ASSERT CHAN .S=$-CHINIT 


DEFW SENDTV 
DEFW ERRJ 
DEFER “S$” 


§ CHANNEL 


ASSERT. CHAN_R=$-CHINIT © 


DEFW INSA 
DEFW ERRJ 
DEFB “R* 


3 CHANNEL 


SSERT CHAN P=$-CHINIT 


DEFW SENDTV 
DEFW ERR 
DERE “PY? 
DEFE &0H 


RST ERROR 


3 CHANNEL 


3S0 BYTE 


sERROR J 


LEFB “I°-“A"+9 


DEFW CHANAK+1 
DEFW CHAN S+1 
OrFW CHAN R+1 
DEFW CHAN_K+1 
DEFW CHANLK+1 
DEFW CHAN .S+1 


_ DEFW CHAN_F+1 


5 STREAM 
3 STREAM 
sSTREAM 
3 STREAM 
;STREAM 
Ss STREAM 
3 STREAM 
3 STREAM 


INITIALIZATION - FOR HIDUEN STREAMS 


QO 


1 
> 


rc 


PAGE 10. 
' ASM S.¢ 


INITIALIZATION - LATA FOR PERMANENT CHANNELS 


Ke 


Ss 


Rs 


Ps 


LOWER HALF OF SCREEN /. KEYBOARD 
UPPER HALF OF SCREEN a 
INSERTION IN RAM AT (KUCUR) 


2X PRINTER 


BEFORE BASIC PROGRAM NOT A COMMA 


INVALID 1/70 DEVICE 


3 
2 
1 


CHANNEL K 
CHANNEL $ 
CHANNEL R 


iow il 


(COMMANUS) INITIALIZE TO CHANNEL K 
CINFUT LATA) INITIALIZED TQ CHANNEL K 
(PRINT) INITIALIZEL! TO CHANNEL $ 


( 


LERINT) INITIALIZED TO CHANNEL P 


sWAIT FOR CHAR FROM CURRENT INPUT CHANNEL & PUT IT IN A. 
$1F BIT CLHS OF (TVFLAG) IS CLEAR fHEN SETS BIT ECHREQ ONEEs 
IF END OF FILE CFINITE DEVICE). 


sABORTS, ERROR & 
SPRESERVES BCDEHL, 


BIT CLHS, (1Y- 


JR NZ LRC2 
SET ECHREQ, (I 
CALL INCH 
RET C 

JR ZsLRCZ 

RST ERROR 
DEFBR 7 


Y+TVFLAG) 


Y~Y+TVFLAG) 


7 


USES B°C’ OE“. 


SIF CHAR FOUNL 
SWAIT FOR CHAR 
fELSE ERROK & ENU OF FILE 


3GET CHAR FROM CURRENT CHANNEL WITHOUT WAITING, & PUT IT IN 


SRETURNS 
SRETURNS 


LIKE A DIse 


C IF CHAR UK. 
NCNZ IF ENLt OF FILE CFOR A FINITE DEVICE, I.E. ONE 


& SIREAMS O - 3 


A. 


FILE FOR WHICH WE CAN ALWAYS fELL IF THERE ARE 


ANY MORE CHARACTERS TO COME). 


LIKE THE KEYBOARD CR THE NET, FORK WHICH WE JUST HAVE TO 


3 
TRETURNS NC, Z IF NO CHAR. YET CFUR AN INFINITE WEVICE, I.€. 
3 


WAIT & SEE IF 


THERE ARE ANY HORE CHARS] 


UNE 


: 


+ 


GENERAL I/G ROUTINES 


EDIT PAGE 11 
Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
940 }PRESERVES BCDEHL, USES B’C’D-E*. 
PAL iNB ASSUMES THAT THE INFUT DEVICE DRIVING RUUTINE PRESERVES 
942 ; B’C’D’E*H‘L’ & SETS AF RIGHT. 
odc4 DY 942 EXX 
oacs ES 944 PUSH HL 
0406 = 2A515C 245 LD HL» (CURCHL) 
o4ace = 23 946 JING HL 
C4CA 23 947 INC HL 
o4cB 1808 948 JR LSC2 ° 
949 
950 PUTDIG: 3 AS SENDCH BUT A HOLDS VALUE OF DIGIT 
: 951 ; ALSO SETS E = “ov 
o4cD 130 952 LD E,DIGIT+0 
O4CF 83 953 ADD ALE 
954 SENDCH iWRITES CHARACTER A TO CURRENT OUTPUT CHANNEL. 
955 SUSES B’C’D’E*, PRESERVES BCDEHL, 
G4tio = Do 956 EXX 
o4nt ES 957 PUSH HL 
O42 2A515C PES. LD HL» (CURCHL) 
$59 LSc2r 
: 260 + #4#ADDITIGNAL: 
O4nS 08 961 EX AF, AF’ 
046  3ABFSC 962 LD As (CURCEN)  $1F CURRENT CHANNEL BANK NUMBER 
O4n9 FEO 943 cP 2 31S GREATER THAN 1 
O40B 3004 964 JR NC» LSCS sUSE CALL BANK ' 
o4nn 08 96S EX AF. AF’ 
96L 5 seat 
O4DE se 947 LD E (HL) 
O4DF = 23 96u ING HL, 
04E0 56 IOP LOD, (HL) 
O4E1 EB 970 EX DEH | 
O4E2 C4705 971 CALL JPLHL sCALL (HL) 
O4E5 1 972 POP HL 
O4E6 D9 973 EXX 
O4E7 C9 974 RET 
975 LSC: + HADDITIONAL 
O4E8 08 974 EX AF, AF’ 
O4E7 =2A515C 977 LD HL,(CURCHL) $GET ADDRESS OF INPUT OR GUIFUT ROUTINE OF DEVICE. 
O4EC 44 978 LD By (HL) 
O4EU = OES 979 LD C,88H ;DON’T DE-SELECT CHUNKS 3 Ok 7. 
O4EF 3AC4SC FRO LD A, (ARSFLG) GET ADURESS OF INFUT UR OUTPUT ROUTINE OF DEVICE. 
O4F2  CB47 981 BIT OA 
“O4F4 2002 pa2 JR NZ,LSC4 
O4F& = 23 983 ING “HL 
O4F7 23 924 ING HL sQUTPUL. 
O4FS = 3ACESC f8@5 LSC4: LDA, (STRMNM)  $STREAM NUMBER IS PASSED AS LOW BYTE OF WORD IN’ 
O4FB SF DEL - LD EA | 
O4FC 14600 987 LO 00 _§ PARMETER TO DEVICE ROUTINE. 
O4FE DS ete PUSH DE ; 
O4FF 110700 PE? LD BE, 0007 : 
o502 19 990 ALD HL» DE 
oS02 ES 9F1 PUSH HL ;NOTE ADDRESS OF ROUTINE. 
0504 CS I92 PUSH BC sNCTE BANK NUMBER AND HORIZONTAL SELECT. 
0505 010200 993 LD BC, 0002 SNOTE NUMBER OF PARAMETERS PASSEL. 


tien 


un t 
tile. 


thats Saf 


hoy 


GENERAL 1/0 ROUTINES 


EDIT : PAGE 12 


Loc OBJ COVE M STMT SOURCE STATEMENT ASM S.4 
O08 Cs 994 FUSH BC 
O50? 010000 95 LO BC,0000 #NUTE NUMBER OF PARAMETERS EXPECTED BACK. 
o50c cs WIL PUSH 8C 
o50n Covuo6s 997 CALL CALL. BANK sCALL THE INPUT Qk OUTPUT ROUTINE OF THE DEVICE. 
O210 El gs FOP HL 
Of11 Db? a9 EXXx 
oS12 cy 1000 RET 
1001 5 eH 
1002 
1003 SELECT: sCURRENT 1/0 CHANNEL t= THAT FOR STREAM A. 
1004 $THE CURRENT 1/0 CHANNEL IS THE GNE USED BY WRCH & INCH, & IS 
1005 H MADE SO BY SELECT. THIS ALSO PERFORMS ANY, SMALL 
1006 H INITIALIZATION TASKS NEEDED BY THE DEVICE USED. 
OS13 1007 ASSERT CY. AND. OFFOOH) =(STRMS. AND. mea 
O31 &7 1003 ADD A.A 
Os14 C4616 1009 ADD A, (STRMS. ANU. OFFH) +HIDSTR#2 
O814 éF 1010 LOLA 
O817 265C 1011 ‘LD H,STRMS.SHR.S 
oo19 SE 1012 LO E, (HL) 
QS1A 23 1013 INC HL 
OS51B +56 1014 LO OD. (HL) 
O81C 7A 1015 LD ALD 
OoS1D B3 10146 OR E 
O51E 2002 1017 JR NZ»LST2 ‘IF STREAM IS OPEN 
O820 1013 ERRQ: RST ERROR sERROR O, INVALID STREAM 
O321 17 1019 DEFB “0°-“A’+9 
; 1020 R 
O22 FE80O 1021 LST2: CP SOH §###ADDI TIONAL 
as24 3022 1022 JR NC,SEL2 sfEST FOR INTELLIGENT GEVIDE (D 1S ALREADY IN AY 
1023 § Hite 
O24 1B 1024 HEC LE 
O327 ZA4FSC 1025 LD HL, (CHANS_) 
O82A 19 1026 ADD HL, DE : 
1027 SEL HL: sCURRENT I/G) CHANNEL := THAT WHOSE DATA IS POINTED AT BY HL. 
O32 225 15C 1023 LO (CURCHL)»HL 
OSZE SE0O 1029 LD A,O cuRCcB 4/ cy L###ADDI at) 
OS30 2BFSC 1030 LO (CURCEN),A Sit ett 2 fo, ate hovel 
O333 FOCEB30A6 1031 RES RETPOS, (IY-Y+FLAGS2) 
O337 23 10:32 INC HL 
O838 23 10:33 INC HL 
Osa 23 1034 ING HL 
OSA 23 1035 IN® HL 
OS3B 4E 1024 LO Cc, (HL) $C t= DEVICE CODE 
O33C 217605 10:37 LO Hu,SELTAB 
OS 3F CD4E06 © 1033 CALL SEARCH 
O42 bo 103? RET NC $IF NO SPECIAL INITIALIZATION ACTIONS 
o843 1600 1040 LO D0 
0545 SE 1041 LO E, (HL) 
0546 19 1042 ADD HL, DE ; 
O347 ES 1043 JPLHL: JP (HL) 5 CALL JP_HL MEANS CALL (HL) 
1044 
1045 SEL2: 5 ##ADDITIONAL 
0343 2ZABCSC 1044 LD HL, (SYSCON) 
O24B D480 1047 SUB SOH sSUBTRACT OFF INTELLIGENT DEVICE MARKER 


“GENERAL 1/0 ROUTINES 


Lor 


O540 
O24E 
OS4F 
oss 
niet 
babar’ £9 
Gase 
O26 
OSSC 
os50 
OsSE 


ODF , 


Osn6é0 
OS43 
O844 
O46 
O347 
O348 
OF42 
Of4A 
Of4B 
OFA 
* OF 6U 
O370 
O71 
o572 
O575 


O576 
O377 
O573 
O37? 
OS7A 
OS7B 
O57C 


Oss? 


O5ee 
Ser 
pees 


OS96 
OS7A 


EDIT PAGE 13 


OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
cay 4 1046 LD DA 
is 1049 ADD HL, Dk jHL POINTES TO SELECTED CHANNEL BANK # IN SYSCON 
22515¢ 1050 LD (CURCHL) »HL 
7E 1051 LD A, (HL) 
328F5C 1052 LD (CURCBN).A : 
FDCB30A6 1053 RES RETPOS (1Y-Y+FLAGS2) 
23 1054 INC HL oe. b 
23 1055 ING HE EDP? ae 
23 1086 INC HL\ ADD Yoo” 
23 1057 INC HL 7 
23 1058 INC HL ( 
23 1059 INC HL» sHL POINTS TO SELECT ROUTINT ADDRESS 
3ABFSC 1080 LDA, €CURCBN) 
47 1041 LO BLA 
OESS 1042 LD C,83H #LON’T DE-SELECT CHUNKS 3 OK 7. 
54 1062 LOO. (HL) 
23 1064 INC HL 
SE 1065 LD E, (HL) 
62 10464 LD HD 
6B 1067 LD L-E 
.£5 1062 PUSH HL 
cs 1049 PUSH BC 
010000 1070 LL’ BC, 0000 #NO PARAMETERS SENT TO OR EXPECTED FROM SELECT 
cs 1071 PUSH BC } ROUTINE OF DEVICE. 
cs 1072 PLUSH BIC 
CDDOSS 10/3 CALL CALL_BANK 
cy . 1074 RET 
1075 tee 
1076 SELTAB: 3SELECT TABLE - SPECIAL INITIALIZATION ACTIONS FOR VARIOUS 
1077 3 DEVICES. 
4B 1072 _DEFB <K~ 
06 1079 DEFB SEL_K-$ 
53 1030 DEFER “S¢ 
12 1081 DkFB SEL_S-% 
50 1082 DEFB “P- 
‘1B 1083 DEFB SEL_P-% 
00 1084 DEFER Oo 
1085 
1024 3NE THE INITIALIZATIONS FOR THE K & S CHANNELS MAKE TEMPORARY 
1087 3 + COLOURS #= PERMANENT COLOURS, SO A # ITEM IN A PRINT 
1038 ; STATEMEN] THAI USES ONE OF THESE TWO CHANNELS OVERRIDES 
1089 ; PREVIGUS COLOUR ITEMS. 
FDCBOZCG 1090 SEL_Kt SET LHS, (LY-Y+TVELAG) 
FDOCBOLAE = 1071 RES KEYHIT, (1Y-Y+FLAGS) 
FICBSOES 1092 SET RETPOS, (1Y-Y+FLAGS2) 
1804 1073 JR LSS 
1074 
FDCHOZ86 1095 SEL! RES LHS, (1Y-Y+TVFLAG) 
FDCROISE 1096 LSSS! RES FPR, (IY-Y+FLAGS) 
c30000 1097 JP R.ATTS 
; 1093 
FDCBOICE. 1099 SEL_P: SET PR, (IY-Y+FLAGS) 
co 1100 RET 


MISCELLANEOUS SUBROUTINES 


EDIT FAGE 14 
Luc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
1101) #HEADING MISCELLANEOUS SUBROUTINES 
1102 ; 
: 1103 INS18 sINSERT 1 BYTE 
OS9B 010100 1104 LD BC,1 
: 1195 INSERT: $s INSERT BC BYTES BEFORE BYTE PTD TO BY HL 
1104 s COPIES UP ALL FRUM HL TO (STKEND), UPDATES POLNTERS 
1107 § CALLS ERROK 4 IF NO ROOM, 
1103 $s SETS 8C=0, DE-> LAST BYTE OF SPACE INSERTED, 
110? 3 HL-> BYTE BEFORE 1ST, PRESERVES A 
1110 3NB POINTERS ARE MOVED UP ONLY IF THEY POINT STRICTLY AFTER 
1111 $ HL. IF IT IS REWUIRED TO MOVE THOSE THAT ARE EQUAL TO HL, 
: 1112 3 THEN 10 
1113 : 3 DEC HL 
1114 3 CALL INSERT 
1115 5 INC HL 
1114 3 INC DE 
OS9E ES 1117 PUSH HL 
OS9F CLIOOGO X 1113 CALL. CHKOSZ 
OSAZ El 1119 | POP HL 
OSA3 COADOS R 1120 CALL REMGSZ 
OSAG6 2A6S5C 1121 LD HL,» (STKEND) 
OSAP EB “1122 EX WE.HL 
OSAA ELBS 1123 LDDR 
OSAaC Cp? 1124 RET 
1125 ’ 
1126 
' 1127 REMGSZs 5 SET BC = (STKEND) - HL+1 
1128 § ADUS VALUE IN HC GN ENTRY TO ANY OF (VARS) TO 
1129 5 (STKEND) THAT ARE STRICTLY AFTER HL. 
11:0 § SETS C& = OLD VALUE UF (STKENO), PRESERVES AHL 
OSAD FS 1131 PUSH AF 
OSAE ES 1132 PUSH HL 
OSAF 21045C 1133 LO HL» ARSBUF $1F INSERTING OR DELEIVING BYTES IN RAM BEFORE 
OSB2, SE 1124 LO E, (HL) § THE ARGS BUFFER, THE FOINTER TQ THE AROS 
OSB3 23 1135 INC HL 3 BUFFER SHOULD BE ADJUSTEU ACCORDINGLY. 
O384 Ss 1134 LO Oo, (HL) sTHIS CANNUT BE DONE IN THE 
OSBS E3 1137 EX (SP).HL $ UPCOMMING LOOP BECAUSE IT IS NOT LOCATED IN 
OSB4 A7 1133 AND A § THE SAME SYSTEM VARIABLES MEMORY AREA ALUING WITH 
OSB7 Eus2 1139 SBC HL, DE § THE OTHER RAM POINTERS. 
OZR? 19 1140 ADD HL, DE 
QSBA E3 1141 EX (SP),HL 
OSB 2006 1142 JR NC »LRS sJUMP IF IT DOES NOT NEED TO BE UPDATED. 
* OF BD ER 1143 EX DE,HL . 
OSBE OP 1144 ADD: HL, BC 
OS BF EB 1145 EX DE.HL 
ORO 72 11464 LD (HL) D 
O5C1 2B 1147 DEC HL 
OSC2 73 1148 LO (HL).E 
O3C3 21485C 1149 LRS1: LO HL, VARS 
OSG SEOE 1150 LD A, (STEEND-VARS) /2+1 : 
ooce FEO? 1151 LRS2: CP O9H . sADIUSTING NXTLIN? 
OSCA 2304 “1152 JR Z,LRS2C iNO, JUMP. 
oscc FEOS 1153 CP OSH SADIUSTING OATAOD? 
OSCE 200D 1154 JR NZ» LRS2A : 


MISCELLANEOUS SUBROUTINES 


Lor 


OSDO 
OST 
oOSD4 


OS De 


OS07 


OSUS 


“OSTA 


OSD 
osn0 
OSDE 
OSDF 
O50 
OnE1 
OSEZ 
O5E4 
OSES 
OSES 
OSES 
OSE 
OSEA 
OSER 
OSEC 
OSED 
OSEE 
QSEF 
OSFO 
OSF 1 
OSF2 
OQSFS 
OSb S 
OSFS 
OSF7 
OSFS 
ODF 9 
OSFB 
OSFC 
O3FD 
OSFté 
OSFF 
a600 


O601 


0603 
04604 


0607 
0608 
060A 
0400 


EDIT 


OBJ COLE M STMT SOURCE STATEMENT 


ES 
Z21CG5C 


ES 


0000 


EB 
110106 R 


7E 
E4CO 
20F7 
56 


1135 
1154 
1157 


1201 
1202 
1203 
1204 
1205 
1206 
1207 
1203 


LRS2Cs 


PUSH HL 


LD HL, ARSFLG sARQS? 


LO tL, (HL) 
BIT 7.2L 
PoP HL 

JR Z,LRSZA 
ING HL 

JAR LASS 

LO E. (HL) 
INE HL 

LO 0. (HL) 
EX (SP).HL 


“AND A 


LRS3: 


ZERO: 
LGL3: 


GEV_LNE 


SBC HL.»DE 
AOD HL, BE 
EX (SF)>,HL 
JR NCL LASS 
FUSH DE 

EX DE,HL 
ADD HL, BC 
EX DE,HL 
LO (HL)D 
DEC HL 

LO (HL).E 
INC HL 

POP DE 

ING HL 

DEC A 

JR NZ,LRS2 
EX DE,HL 
FOP DE 

FOP AF 

AND A 

SBC HL,DE 
LD BLH 

LO Cc.L 

INC BC 

ADD HL,DE 
EX DE,HL 
RE1 


DEFW O 


EX: DE,HL 
LO OE, ZERO 


“a ve we ve 


LD A» (HL) 


FRESERVES EC, 


PAGE 15 
ASM SS. 


SAVE PUINTER TQ CURRENT SYSTEM VARIABLE PUINTER. 


SRESMORE POINTER. 
sNO, JUMP. 


3DON’T UPUATE CERTAIN POINTERS IF RUNNING OUT OF ARUS. 


5 IF POINTER <= HL 


EXIT LOOP WITH BC = AMOUNT BY WHICH TO MOVE, 
(SP) = PLACE TO INSERT/DELEIE, 
DE = GOLD VALUE OF (DF_END) 


we we we 


see COULD SAVE 2 BYTES BY FINDING A NATURAL O WORD 


3 HERE IF E.G. HL = (VARS) 
s IN CASE CONE HERE AGAIN 
_3 PICK UP LINE # FROM LINE PTL TO BY HL, 
DOESN’ T POINT OQ A LINE 
IF DE DOESN“T EITHER, YIELDS ZERO 
LEAVES LINE # IN DE, 
RECORD UNLESS DE = 0 - 


OR BY DE IF HL 


SETS HL -> 2ND BYTE OF 


AND 11000000B 


JR NZ,LGLS 
LD LD. (HL) 


© 


MISCELLANEOUS 


Loc 


04600 
_ OG0E 
O40F 


0410 
O613 
0614 
O617 
0618 
O619 
OGLA 
OGLE 
O41F 
0620 
0621 


0622 
04625 
0627 
0424 
062B 
0620 
OG62E 


O631 
0434 


0437 
04634 
063D 
O4:3E 
O4641 
0644 
0645 


0446 
Q64A 


_ O64D 


1261 


1262 


SUBROUTINES EDIT PAGE 14 
OBJ COVE M STMT SOURCE S1ATEMENT ASM: 5.9 
23 1209 INC HL 
SE 1210 LU Es (HL) 
co 1211 RET 
1212 
iz13 Lcu2s - § COPYUP IN MODULE BASIC CONTINUES HERE 
2AG38C 1214 LO HL, (STKBOT) 
2B 1215 DEC HL 
CHVEOS R 1216 CALL INSERT 
2: 1217 INC HL 
23 1218 INC HL 
C1 1219 POP BC 
ED42615C 1220 LO (WORKSP), BC + RESTORE (WORKSP) IN CASE WAS EQUAL TU (SIKBOT) 
C1 1221 PUP BC 
EB 1222 EX DE,HL 
23 1223 INC HL 
ce 1224 RET 
1225 
1224 CLEL: sCLEAR ELINE 
1227 sMAKES NEW E_LINE AREA, EMPTY EXCEPT FOR NEWLINE & sioP. 
1228 SCLEARS CALCULATUR STACK (KUT NOT ITS MEMORY). f 
1227 sHL ?-> BYTE AFTER STOP, EVERYTHING ELSE PRESERVED. 
1230 3 ### MAYBE THIS IS REDUNGANT NOW WE HAVE DIEL_K att 
2A595C 1231 LD HL» (E_LINE) 
3600 1232 LO (HL) NL SEL 10 TERMINATE 
225B5C ee LO <(KCUR) HL 
23 234 INC HL 
34680 , 1235 LD (HL),S0H 3“END OF PROGRAM’ FOR COMMAND LINE 
23 12234 INC HL 
226150 1237 LD (WORKSF)»HL 
12328 X_CALC: 3RESE1 CALCULATOR STACK & CLEAR GUT WORK SPACE AREA 
L239 SPRESERVES AFBCLE 
2A615C 1240 LD HL, (WORKSP) 
Z2635C 1241 LD (STKBOT), HL 
1242 RESET: SRESET CALCULATOR 
1243 tPRESERVES AFECLE 
2AGR5C 1244 LO HL» (STKBUT) 
22655C 245 LD (STKEND)»HL 
ES 1244 FUSH HL 
21928C 1247 LD HL, MEMBOT 
22685C 1243 LD (MEM) »HL 
E1 1249 POP HL 
cy 1250 RET | 
1254 ° 
+ 1252 X_TLHL: $ ENTER HERE TO DELETE FRUM (E_LINE) TO BYTE BEFORE (HL) 
EDSRS9SC = 1253 Lo DE, (e_ LINE) 
c30000. x :1254 JP DEL_DE 
1255 
23 1256 LSH2! INC HL 
1257 SEARCH: 3SEARCHES THROUGH TABLE (HL) FOR ENTRY C. 
1258 3EACH ENTRY IN THE TABLE HAS 2 BYTES, fHE FIRST BEING THE ONE 
1259 ; TO BE MATCHED AGAINST C. 
1240 3THE TABLE IS TERMINATED BY A ZERO BYTE. 


: ¢IF ENTRY FOUND, RETURNS C WITH HL -> 2ND BYTE OF ENTRY. 
3IF NOT FOUND, RETURNS NC WITH HL -> ZERO TERMINATOR. 


MISCELLANEOUS SUBROUTINES EDIT ; PAGE 17, 


Luc 8 8OBI CODE M STMT SQURCE STATEMENT AEM 5.9 
1243 sPRESERVES BCDE. 
O64E 7E 1264 LO A» (HL) 
O64F A7 1245 AND A ' 
0gs50 C8 1266 RET Z 3 TERMINATOR 
0651 Bg 1247 CFC 
0452 23 1268 © INC HL . 
O6453 20F8 1269 JR NZ,LSH2 3FOR NEXT ENTRY . 
O4655 37 1270 SCF 
0656 Co | 1271 RET 
1272 
1272 3 ## ADDITIONAL 
1274 SRCHSC: SSEARCH SYSTEM CONFIGURATICN TABLE FOR DEVICE 
1275 $SPECIFICATION IN C. IF NUT FOUND THE CARRY FLAG 
1276 31S CLEARED. IF A MATCH IS FOUND, THE CARRY FLAG 
1277 $15 SET AND HL REIURNS POINTING TO THE BANE # OF 
1278 3THE SPECIFIED DEVICE, AND DE RETURNS WITH THE OFFSET 
1279 $T0 THE DEVICE RECORD FROM SYSCON. 
0657 = ZABCSC 12280 LD HL» (SYSCON) 
O45A  =110C00 1281 _LD DE.12 SSTART OF BANK RECORDS 
o65D 19 1z282 ADD HL, DE : 
O65E JE 1233 CHKTBL® LD A, (HL) sCHECK FOR END OF TALE 
O6SF FESO 1254 CP SOH . 
0441 231A 1285 JR Z,ENDTBL 
0663 23 BES ING HL 
0664 23 1287 ING HL ; 
O445 FEOL 1263 cP 1 SCHECK PRESENCE FLAG FUR INTELLIGENT UEVICE 
0667 2004 12a9 JR NZ, NX TONE sIF NOT RY NEXT ENTRY 
O669 JE 1290 LD A. (HL) sELSk COMPARE DEVICE SPEC 
0660 B89: 1291 cP c 
O46B 2812 1292 JR Z,FOUND 
0660 ES 1273 NXTONE: PUSH HL sTRY NEXT ENTRY 
Q66E EB 1294 _ EX DE.HL . 
* O&G6F 111800 1295 LO OE,18H 
O672 19 1296 AnD HL» DE 
0$73 EB 1297 EX DE,HL 
O474 £1 1293 POP HL 
0475 oF” * 1299 FUSH LIE 
476 111600 1300 LU DE, 14H 
O479 ° 19 1301. ALD HL,» GE 
OG7A Ut 1302 POP DE 
O4/B 1661 1803 JR CHETBL 
O67L AZ 1204 ENUTBL: AND A : 
O67E CP 1205 RET 
O47F 2B 1304 FOUND: DEC HL 
0680 37 1307 SCF 
@631 C9 1208 RET 
1209 


1310 EN 


- CHANS 
X\XN PAGE 1: : 
‘LOG '' ‘OBJ COLE M STMT SOURCE STATEMENT ASM 5.9 
1 #HEADING GPEN, CLOSE ETC 
41% 4#LIST ON . 
a { 420° INCLUDE MORESYSV 
421 BANK_ENABLE EQu 6499H 
422 CALL BANE Euu 65D0H 
423 MOVE_SZ Eau DRIVES-6000H 
424 DEST7 “ Eau OFF FFH-MQVE_S2+1 
425 FIX EQuU DEST7-6000H 7 
426 CALL VBANK EGU  CALL_BANK+FIX 5 
427 GOTO_LBANK Eau 6572H +AUDRESS OF "GO TO BANK" BANK SWITCHING 
423 3 AWARD. 
429. XFER_BYTES © EQu 6722H ‘fINUIRECT DATA TRANSFER BETWEEN BANKS. 
430 GOTOLEXT EGU 6315H FFOR INITIALIZATION CODE IN HOME BANK. 
431 $ EXTENTION, 
432 SLVM Euu O14BH sADDRESS OF TAPE ROUTINES FOR SAVE, LoaD 
433 3 VERIFY AND MERGE COMMANDS. 
434 BLOSCT Eau OPF4H sSADDRESS CF INITIALIZATION ROUTINE TO 
435 : 3; BUILD THE SYSTEM CONFIGUKATICN TABLE. 
436 RESSCT Eu OCACH oS ALDRESS OF RESET ROUTINE TO ADD DEVICES. 
437 PASSING Eau OFOPH sSADDRESS GF ROWTINE TO-FUSH PARAMETERS To 
433 $ THE BEU ROUTINES ONTO THE MACHINE SrAck. 
429 
440 GLOBAL OPEN, CLOSE, RSTSIR 
441 GLOBAL CLCHAN, CIPCHAN 
442 
443 EXTERNAL SMINIT, SEARCH, SRCHSC SEIT 
444 EXTERNAL SKIPIT, PASSEM sSYNTWO, 
445 EXTERNAL FIX U1, ENU?, SYNERR 3 SYNTAX 
444 EXTERNAL INTPT? 3EXPRN 
447 EXTERNAL POPSTR 3 IDENT 
445 
44> CLOSE: SEXECUTES CLOSE # N 
450 SPOPS CHANNEL NUMBER N OFF THE CALCULATOR STACK, CLOSES 
451 ; CHANNEL, DETACHES CHANNEL FROM STREAM, & IF A STANLUARD 
452 ¢ ; SIREAM, REATTACHES 11S PREFERRED CHANNEL. 
0000) =6cD7000: 453 CALL GETSTM 
454 $## ADDITIONAL 
0008 73 ° 455 LD ALB 
0004—soBI 454 OR C ; 
0005) —ssc8 45:7 RET Z SRETURN IF CHANNEL ALREADY CLOSED 
4453 ey 
0006 CDIFOO 459 CALL CLCOHAN 
0009 oa10000 440 RSTSTR: LO BC,O 3FOR UNATTACHED STREAM 
aooo 11E2A3 441 LO DE, -~STRMS—(HIDSTR+4) #2 
QOOF €B 462 EX DE,HL 
ooi0 19 463 AUD HL, DE 
OG11 B07 464 WR CoLCES SUNLESS STREAM IS SrANuvARD 
465 HERE WHEN STREAM IS STANDARD. DE -> STREAM DATA, HL = (N-4)#2, 
0013 O10E00 AOS LO BC, SMINIT+(HIDSTR+4) #2 
0016 OF 467 ADO HL, BC SHL §-> STREAM INITIALIZATION BYTES CONTAINING 
Q0O17 4 468 LD C, (HL) ; FREFERKED CHANNEL ADDRESS, 
OO18 2 49 INC HL 
OO1L? 4& 470 Lo B (HL) - 
471 LOCESs THERE WITH DE -> STREAM DATA, BC = CHANNEL ADDRESS 


OPEN, CLOSE ETC 


LOC 


OO1A 
OO1B 
o01c 
oo1n 
OO1E 


OOLF 
0020 
O021 
0023 


0025 
e023 
002? 
Q0zA 
002B 
eo2c 
oozD 
OOZE 
OO31 
a0s34 
0035 
0037 
00383 


0039 
QOOSB 
Osc 
OO3F 
on4a 
0041 
0043 
0044 
Q044& 
0047 
O04 
0049 
0044 
QOO4B 
Oo4c 


004D. 


O04E 
QOO4F 
oos0 
Ooo 1 
0082 
OO5S 
Q0s4 
Oa33 


0059 


tad 


EB 


3ACBSC 
SF 
1400 
DS 


ES 


Earl @ Pu 
507 
Sos 
soy 
910 
S11 
S12 
Siz 
314 
Sis 
S14 
S17 
S18 
Si? 
S20 
S21 
S22 
S23 
m4 


S25 


CHANS 
G8 CODE M STMT SOURCE STATEMENT 


CLCHAN: 


EX DE. HL. 
LD (HL),C 
INC HL 

LD (HL) B 
RET 


PAGE 2 
ASM 5.9 


sCLOSES CHANNEL WITH CHANNEL ADDRESS BC < 


+PRESERVES HL 


PUSH HL 
LO A,B 
CP 80H 
JR NC» C1 


LD HL, (CHANS..) 
ADD HL,» aC 

INC HL 

INC HL 


ANC HL 


C1: 


LD C, (HL) 

EX DE,HL 

LO HL,CL.TAB 
CALL SEARCH 


‘LO C, CHL) 


LD 80 
ADD HL, BC 
JP CHL), 


SUB SOH 
LO BLA 

LD HL, (SYSCON) 
AnD HL, BC 
LO A» (HL) 
cP O 

RET Z 

CF S0OH 
RET Z 

INC HL 

LD B. (HL) 
ING HL 


i 


S##ADDITIONAL TO CHECK FOR INTELLIGENT DEVICE 


$C t= DEVICE SPECIFIER 


“ $TO0 CODE TO CLOSE CHANNEL 
S##ADDITIONAL TO CLOSE INTELLIGENT DEVICE 
SREMOVE INfELLIGENT MARKER 

SAND PUT BACK IN B : 


sHL POINTS TO BEGINNING OF RECORD 


SRETURN IF DEVICE 1S NO LUNGER ATTACHED, 


pRETURY IF EwD OF TABLE 


far BANK NUMBER ; 
LU 
$GET CLOSE ROUTINE ADDRESS 


sNOPE CURRENT STREAM NUMBER. 


+STREAN NUMBER PASSED AS PARAMETER TO DEVICES 
§ CLOSE ROUTINE. 


OPEN, CUCSE ETC 


LOC 


OOSA 


QOOSB 
QOSE 


OOSF' 


062 
0063 
0045 
00467 


0068 
0049 


— OQ6A 


Q04B 
O06C 
006D 


OO6E 
QOS6F 


0070 - 


0073 
0076 
0078 
007A 
007B 


ag7C 
OO7E 
QO7F 


0082 | 


033 
o0ss 
086 
0087 
O083 
0039 
Q03A 


CHANS . PAGE 3 ; 
OBJ' CODE M STMT SOURCE STATEMENT . : ASM 5.9 
cs S26 PUSH BC eee 
010200 527 LO BC, 0002 pie 
cs 523! PUSH BIC $2/PARAMETERS SENT. 
010000 529 LD BC, a000 4 ; 
cs Siz0 PUSH BC 3NG PARAMETERS EXPECTED BALK. 
CODO6S S31 CALL CALL_BANK 'CALL CALL_BANK ROUTINE ; 
El . 532 PUP HL. ; ® 
cy S23 RET 
, 524 $e . 
4B 535 CLTAB: DEFB “K’ 
os 536 DEFB CLSE_K-$ 
53 !! 537 DEFB “S- 
o3 58 DEFB CLSE_S-# 
50 | 539 DEFB “P¢ 
o1 540 HEFB CLSE_P-$ 
541 
542 7ROUTINES TO CLOSE CHANNELS FOLLOW. 
543 ENTER WITH DE -> DEVICE CODE WHYTE, (SP) VALUE UF HL SAVED ON - 
544 ; ENTRY TO CLCHAN. . 
545 sWHEN FINISHED, POP HL & RET 
546 
547 CLSE_K: 
548 CLSE_LS:- 
El 549 CLSE_LP: POF HL 
co 550 RET 
551 
552 GETSTM: 3GET STREAM.’ 
S53 3PUPS STREAM NUMBER N FROM CALCULATUR STACK, HL 2-3 S1REAM 
: B54 ; DATA, BC t= CHANNEL ADDRESS. 
cboo00 =X: SSS CALL FIX_UL 3A ts . 
S2CBSC S56 LO (STRMNM),A  $NOTE CURRENT STREAM NUMBER, 
FE10 57 CP 14 
3802 S58 JR Cy LGM2 3IF N ¢= 15 
559 ERRO: RST ERROR TERRUR O, INVALID STREAM 
17° 540 DEFB ‘O--"A‘+9 
54 
C403 562 LGM2: ADD AHIDSTR 
07 543 RLCA . 
21105C 544 LO HL, STRMS : 
4F 565 LD C.A 
0400 566 LO #0 
fe) S47 ADK HL» BC 3HL t-> STREAM DATA 
4E 568 LO C. CHL) 
23 S49 INC HL 
45 570 LD B, (HL) 3BC t= CHANNEL ADDRESS 
28 S71 DEC HL ; 
co 572 RET 


we 


OPEN, 
Lac 


‘OOSB 
oosnp 
OO08F 


092 
0094 
0097 
O09o 


oo8c 


OOFF . 


Q0A0 
GOAL 
O0A2 
QOOAS 
OOASK& 
* QOA7 
O0A? 
QOAA 
ooAn 
OOAE 
QOAF 
OOBO 
OORL 
OOB2 
OORS: 
OOHS 
0087 
OORS 
QORB 
QORD 


OORF 
o0C2 
oocs 
o0c4 
o0cs 


OOCE 


CLOSE ETc CHANS PAGE 4 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
S72 #EUECT 
: 574 
S75 OPEN: sEXECUTES STATEMENT OFEN # NYS 
Si74 3N. THE STREAM NUMBER, & 3, THE CHANNEL SPECIFIER, ARE PUFPED 
577 : OFF THE CALCULATOR STACK. 
5/3 3IF STREAM # N IS ALREADY ATTACHED TO AN I[MPERMANENT CHANNEL, 
579 ; THEN ERROR ©. 
560 ;CPENS CHANNEL $ & ATTACHES IT TO STREAM #4 N. 
FE2C Sed CP “1° ; 
2805 Sa2 JR Z,OP4 sJLIMF LF COMMA. 
ClOOOO =X = «Se3 CALL END? ,1F NOT COMMA, LOOK FOR END OF STATEMENT FOR 
534 SPROFER REIURN LF WST CHECKING SYNTAX, 
180B 535 JR OP2 360 ON IF INTERPRETING, 
ChOQO0O =X E84 OOP A: CALL INIPT? s INIERPRETING? 
2006 57 JR NZ. OP2 SYES, JUMP. ‘ 
chooog =X Ss GALL SKIPIT 3NQ, SKIP OVER REST OF STATEMENT (THIS 
529 SPORTION IS CHECKED FOR ADHERANCE TO 
S70 $SYNTAX SY THE COLE {£N THE BUS 
571 SEXPANSION UNIT. ) 
cho0eQqO) = Xs BY? : CALL ENE? : sRETURN. 
5e3 OP2: RST CALCTR ; 
o1 524 DEFB EXCH 
38 595 DEFB QUIT 
ch7000 R SS CALL GETSTM 
73 597 LO A,B 
Bi 59s oR Cc 
2B16 , 509 JR Z,LON4 SIF STREAM NOT ALREAUVY OPEN 
EB 600 EX DE,HL 3DE t-> STREAM DATA — 
ZA4F5C 601 LU HL» (CHANS_) : 
oF 602 AnD HL, BC tHL &-> 2ND BYTE OF CHANNEL DATA 
23 603 INC HL 
22 604 INC HL , 
23 605 INC HL 
7E 406 LD A» (HL) 3A t= DEVICE CODE 
Ex 607 EX DE,HL 3HL &-> STREAM DATA 
FE4B SOS CP “K- 
2808 609 JR Z,LON4 
FESS 610 CP “S- a8 
2R04 11 JR Z,LON4 
FESO 612 CP “PY . 7 
20BB. G1 JR NZ, ERRO SIF STREAM ALREADY OPEN WITH IMPERMANENT CHANNEL ae 
414 LON4: SHERE WITH HL -> PLACE FOR STREAM DATA, CHANNEL SPECIFIER ON . 
615 ae CALCULATOR STACK, TO CPEN THE CHANNEL & ATTACH IT TO THE 
GIG a 3 STREAM. 
cDC600, R 617 CALL OPCHAN ; ane 
73 618 LD (HL) E . 7 : 
23 619 INC HL a er 
72 620 LD ¢(HL).D . . ai 
cy G21 RET : oa 
: 622. ee NS 
623 OPICHAN! SPOPS CHANNEL SPECIFIER OFF CALCULATUR STACK & OPENS CHANNEL. ue 
624 3DE := CHANNEL ADDRESS (RELATIVE fQ (CHANS_)-1). 
625 SPRESERVES HL. ; Si: Maes airs Re 
ES 626 PUSH HL ae 


in 


iO) 


- 


tm 


QFEN, CLOSE ETC 


Loc 


O0C7 
00CA 
OOcB 
eocc 
oocn 
QOCcr 
Oona 
oon 
oon2 


Ooms 
OOL4 
oons 
OONE 
oons 
oon? 
aon 
QOUIF 


ODE L- 


ODES 
OOE4 
OOES 
OOES 


QOE7 
OOED 
QOEC 
OOEE 
QOOERF 
QOFO 
OOF 1 
OOF2 
' OOF4 
. OOF'S 
OOF4 


O0F9 
OOF A 
OOF B 
OOF Do 
OOFE 
OOF F 
‘0100 
o1a01- 
Q102 
O10%3 
0104 
0107 
0103 
Q10A 
O10B 
O10C 
O1oc 
0110 


CHANS 


OB. CODE M STMT SOURCE STATEMENT 


CLOo00 


212301 
coo00d 
3006 


X 


627 
423 
629 
&30 
&31 
632 
633 
634 
635 
G34 
637 
&3 

&39 
640 
641 
642 
643 
644 
645 
646 
647 


‘643 


&50 


ERR: 


ERRF® 


LOC2: 


Sots 


oP4: 


CALL POPSTR 
DEC BC 

LD A.B 

aR ¢ 

JR Z,LOCz 

RST ERROR 

DEFB “J’-“A‘+9 
RST ERROR 

DEFB i4 


INC BC 

PUSH BC 

LD A» (DE) 
AND 110111118 
LO C.A 

LO HL,SPECLT 
CALL SEARCH 
JR NC, SOT 

LO C,. (HL) 

LO Bd 

ADD HL. BC 


POP BC 


JP (CHL) 


TALL SRCHSC 
JR NC, ERRU 
POP BC 

DEC BC) 

LD A.B 

OR C 

JR NZ ERRJ 
PUSH DE 

EX DE.HL 
CALL PASSEM 


EX DE,HL 

LD B, (HL) 

LO C, 88H 

INC HL 

INC HL 

LOE, (HL) 

INZ HL * 

LO oy (HL) 

LD HD 
LOLLE 

LD A, (STRMNM) 
Lo ELA 

LD D0 

PUSH DE 

PUSH HL 

PUSH BC 

LD HL, (STKEND) 
LD OC. (HL) 


sSTRING LENGTH MUST BE GONE.” 
SUNLESS SPECIFIER EMPTY 
s INVALID DEVICE —- ERROR J 
sERROR F, INVALID SPECIFIER. 

'SAVE LENGTH OF DEVICE SPEC. STRING EXPRESSION. 
8A #= DEVICE CODE (CAPITAL LETTER) 


sSEARCH OTHER TABLE ## CHANGE # + 


3BC §= LENGTH OF SPECIFIER 
'1Q CODE TO UPEN CHANNEL 


sNOT READY FOR BREU DEVICES. . 
SSEARCH SYSCUN TABLE 
SERROR IF NOT FUUND - INVALID DEVICE COLE 
sGET LENGIH UF DEVICE SPECIFIER 


sEKRUR IF pe <> 1 


SSAVE OFFSET FROM SYSCON 
+SAVE POINIER TO SYSCUN TABLE. 
sFASS ANY FARAMETERS TO BUS EXPANSION UNIT DEVICE 
3 VIA THE MACHINE STACK. 
SRESTORE POINTER TU NEEDED BANK #. 
*CALL LEVICE’S OPEN ROUTINE 
sNOTE HORIZONTAL SELECT. 


; 
SCURKENT STREAM NUMBER PASSED AS PARAMETER TO 
5 OPEN ROUTINE GF DEVICE. 


;RESTORE NUMBER OF PAKAMETERS FASSED. 


o 
ire 


“OPEN, CLOSE ETc CHANS PAGE 4 


Linc OBI COVE M SIMT SOURCE STATEMENT ASM 3.9 
O1li 2B 691 DEC HL 
Q112 226558C 682 LO (STKEND).HL 
O11S 0600 483 LO &,00H H : 
O117 O23 424 INC gc § (INCLUDING STREAM NUMBER 1N LOW BYTE UF 
a11is az 685 INC BC ‘ H WORD) 
o119 cs &S6 ; FUSH BC 3# CF PARAMETERS SENT. 
O11A 010000 637 LO BC, Q0000H s# OF PARAMETERS EXPECTED BACK. 
Oo11D cs 683 FUSH &C STHESE SERVE AS PARAMETER TO CALL_BANK, 
O11E CODO46S 4g7 CALL CALL._BANK ; sCALL CALL_BANK ROUTINE 
O121 D1 490 FOP DE : 
O122 7A 691 LO A.D SMARK DEVICE AS INTELLIGENT 
O1Z3 C4680 $92 ADL A,SOH : : 
0125 57 KFS LD DLA : 
O126 El &94 FUP HL 
Q127 cy 695 RET 
&9% i HR 
497 
698 
O97 
O1Z3 4B 700 SPEC_Ts DEFER “K? ‘ ; : Taka: 
O129 06 7Ol DEFB OPEN_K-$ : 
O12A 53 7O2 DEFB “S’ 
OQ12zh O8 7O3 DEFB OPEN_S-$ 
o12C bal 8) 704 DEFB “P* 
o12D OA 703 DEFB UFEN_P-$ 
OLZE 00 7O& F DEFB O 
‘ 707 : 
703 $THE ROUTINES TO OPEN VARIOUS TYPES OF CHANNELS FOLLOW. 
709 ’ $ENTER WITH DE -> SPECIFIER STRING, BC = ITS LENGTH, (SP) = 
710 3 VALUE OF HL SAVEL! ON ENTRY TO OPCHAN. 
711 SWHEN FINISHED, POP HL & REIURN WITH DE = CHANNEL ADDRESS. 
JAZ : 
O12 1E01 713 OPEN_LK: LD E,CHAN_K+1 
OSL 18046 714 JR LOC7 
JAS 
01233 1E06 716 OPEN_S: LO £,CHAN_S+1 
0135 1502 717 JR LOCZ 
713 
0137 1E10 717 OPENLP: LD E,CHAN_F +1 : ; 
720) =Lot7: j sHERE WHEN OPENING PERMANENT CHANNELS, WITH E = CHANNEL ADDRESS 
721 $02= QO, ERRUR F IF BC.<> 1. 
O129 OB 722 DEC BC 
O13A 73 723 LO A.B 
O1L3B B1- 724 oR C. 
013 C20100 R 725 JP NZ,ERRF 
O13F 57 726 Lo DA 7D 2:= 0 
o140 El 727 POP HL ; 
0141 cy 728 RET 
72 
730 / 
731 END 


X\XN 


* 


LIS) ON SCREEN ETC 


Loc 


0000 
0004 
0008 
OQ0OB 
QQOF 
0012 
001s 
a019 
0010 
0020 
0024 
Oo025 
OO27 
OO23 
002A 
O0O2B 
QOZE 
OOS 1 
OOs2 


LIST PAGE 1. 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
1 #HEAD LIST ON SCREEN ETC 
419 #LIST ON 
420 GLOBAL LINENO, PU)_LN, RECLEN, CP_BC, DELREC, FIND_L’ 
421 GLUBAL DEL_UE,PUT_BC,K_LLST,K-LIST, DE_HL 
422 GLOBAL PUT, PUT_SR»PR CUR, LIST, NEXT_L, SUBLIN; SUBLNI 
423 GLOWAL FLASHA ; 
424 GLOBAL LPO ‘ 
425 os 
f 426 EXTERNAL CLS, SENDTV, INSA, R_ATTS, CLS_E s10_1 , 

427 EXTERNAL REMGSZ.GET_LN, RESET, FUTDIG, SELECT sEDIT 
428 EXTERNAL SYNERK; FIX_Us STK_O, OPTNO, TEMG, ENU? $s SYNTAX 
429 EXTERNAL SIRITO sSYNTWO 
430 EXTERNAL INTPT? sEXPRN 
431 EXVERNAL OIGIT? $s IDENT 
432 EXTERNAL. ININT, FP2BC SINC 
433 
424 
425 LISTs sLIST PROGRAM ON SCREEN 
43 3THE GENERAL ALGORITHM IS THIS: 
437 31A. IF (S.TOP) IS BELOW (E_PPC) THEN (S_TOP) t= (EPP). 
422 $1B. ELSE (S_TOP) IS MOVED DOWN UNTIL IT IS WITHIN (ABOUT) 
429 ; (TVLLNS=2)#L_LEN BYTES OF (EPPO). 
440 $2. LISTING STARTS AT (S_fOP), & CARRIES ON UNTIL THE CURRENT 
441 : LINE HAS BEEN LISTED (SHOWN BY (BREG) - SkE PUILSR) & THE 
442 ; SCREEN IS ABOUT 1G SCROLL. TVFUL? HAS BEEN DOCTORED TO 
442 - ; RETUKN FROM LIST WHEN THIS HAPPENS (USING (LISTSF)). 
444 $3. FUR THE SITUATION WHERE (STOP) IS WAY ABOVE (E_LFPPC), WE 
445 ; ALLOW IT GRADUALLY TO MUVE DOWN: AFTER EACH LINE Is 
444 ; LISTED, IF THE CURRENT LINE HAS NOT YET BEEN LISTED & THE 
447 ; SCREEN IS ABOUT TO SCROLL. THEN (S_TOP) IS MOVED DOWN ONE 
448 : LINE. 
449 SSELECTS CHANNEL 3. 
450 sRESETS BIT LIST OF (TVFLAG). ; 
451 s#4% FOR BETTER BASICS, MAKE SURE THAI (S_TOP) IS AN EXISTING 
452 3 ## LINE SO fHAT WE DON’T GET 2 IGENTICAL LISIINGS. 

ED733F5¢ 453 LD (LISTSP),SP s(LISTSP) #-> RETUKN AULRESS FROM LIST 

FD360210 454 LD (IY-Y+TVFLAG).1.SHL.LIST ; 

-cuo0000 =X. 455 CALL CLS SCLEAR SCREEN - ALSO SELECTS CHANNEL $ 

FDCBO2CS 454 SET LHS, (1Y-Y+fVFLAG) 

FD4631 «457 LD By (1Y-Y+DF_$z) 

ChON0O = X-—s«45S CALL CLS_B SPAINT LOWER HALF WITH BORDER COLOUR 

FDICHOZS4 459 RES LHS. (1Y-Y+TVFLAG) 

FDCES0C& 460 SET ALOS, (LY-Y+FLAGS2) 

ZAAPSC 4ét LO HL, (E_PFC) 

EDSBSCSC 462 LD wie, (STOP) 

A7 443 AND A 

EnS2 444 SEC HL» DE 

19 445 ADL HL, DE 

2822 Abb JR Ca LETS SIF CUR, LINE OFF TOP OF SCREEN - (S TOP) := (EUPPC) 

DS 467 FUSH DE 

CDOFSO1 R 448 CALL FINDOL 

110002 469 LO DE, (TV_LNS-2) #L_LEN 

EB 470 EX DE,HL 

ELIS2 ATA SH HL, DE SHL APPROX. = 32922-ADDR, OF LINE (ELPPC) 


ee ee ee eee ee oe 


‘LIST, ON SCREEN ETC LIST. PAGE 2 


Loc 6} GBU- CODE M STMT SOURCE STATEMENT . ASM 5.9 
0034 E3 472 ' EX (SP),HL - $HL s= (STOP) 
0035 COFSO1 R 473: CALL FINDOL [ 
0033 C1 474 POP BIC 3BC APPROX. &= 32#22-ADUR. OF LINE (E_PPC) 
475 LLT2: SHERE WHEN SEARCHING THROUGH PROGRAM FOR A LINE WITHIN SHOUTING 
476 Hy DISTANCE OF CURRENT LINE. 7 : 
477° “ sHL -> TUP LINE, BC APPROX, = 32#22 - AUUR. CF CURRENT LINE. 
a0s? cs 473 ; PUSH BC : a 
003A COUSFO2 R 4/9? CALL RECLEN 
oo3D C1 420 : POP BC 
OOSE a? 4cd ADD HL, &C 
OOSF S30E 482 JR C,LLTS2 SIF (STOP) LINE WITHIN 32#22 BYTES OF (E_PFC) LINE 
Oo4l EB 433 EX DE.HL $HL 8-> LINE AFTER TOP LINE 
0042 56 434 LD (HL) 
0043 23 4e5 ING HL 
0044 Sk 486 LO E, (HL) 
0045 2B 437 DEC HL . : 
0046 EDS346C5C 4&3 : LO (S_TOP), DE sMOVE TOP LINE ON ONE. 
Q04A 1SED 429 JR OLLT2 
F 490 
a04c 226C5C 491 LLTS: LD (S_TOP),HL 
O04F 2ASCSC 492 LLTS2: LD HL, (S_TOP) 
0052 CDFSO1 R 493 CALL FINDLL 
0055 2301 474 ‘ JR Z,LLTSG ¢IF LINE FOUND 
0037 EB ; 495 EX DWE,HL sHL &-> LINE BEFORE 
OO52 CDOYEOO R 494 LLT4:s CALL PLUTSRR 3 WRITE OUT PROGRAM 
oo3B FOCROZAS 4?7 RES LIST, (1Y-Y¥+fVFLAG) 
OO3F Cc? 493 RET 
499 ; : 
500 K_LLSTs \ sLLIST STATEMENT 
Q040 3E03 S01 LO A, LPR UST 
0062 1802 S02 JK LKT2 
5 S03 
504 KOLISTs SLIST STATEMENT. THE SYNTAX IS 
Sos ° ; LIST C NG.JEXPRN J \ 
; S06 | 5 LIST STREAM-ITEM C $3 NO.WEXPRN J 
0064 SEO2 S07 LO A» PRUST 
0066 FD340200 S08 LKT2s LD (IY-Y+TVFLAG),0O 
OO4A cpoaeo . X Sop * CALL INTPT? : 
006D C40000 X S10 CALL NZ.SELECT 
9070 Sit RST IGN.SP 
0071 CDOO0O X S12 CALL STRITO 
0074 3314 S13 IR CLKTS sIF NQ STREAM ITEM 
0074 514 RST IGN.SP . 
0077 FESB S15 CP “37 : 
0079 2804 S16 “JR Z,LKT22 
QO7B FEZC S17 CP 7% 
Oo70 2006 S13 IR NZ LETSS sIF NO COMMA OR SEMICOLON, SO MUST BE END OF STATEMENT 
Q07F S19 L$KT22: RST NXT_LIS 
0030 CpOddDE X S20 CALL TEM6 
0083 1808 S21. JR LKT4 
S22 
o0eS CoO000 X S23 LKT25: CALL STK_O 
oogs 1803 524 JR LET4 
S25 


LIST ‘ON ‘SCREEN 'ETC LIST PAGE 3 
‘LOC - ‘ORI CODE M STMT SGURCE STATEMENT . ASM 3.9 - ; aoe 


oosA = CNOA X 526 LKT3: CALL OPTNO 
o0osD ‘cnoooo = 'X S27 LKT4: CALL ENLI? 


0090 «‘cDo000) =X: 828 CALL FIX_U 
0073 «78 527 °  LDAB- 
0094 = E63F 530 AND 3FH . 
0096 67 531 LD HA | 
00F7 69 532 LD ise .. ; mi 
oov8 22495C $33 LD (E_PPC)»HL : 
oovs CDFSO1 R 534 CALL FINDOL , 
mk S25  PUTSRR: sWRITE LINES OF PROGRAM USING PUT_SR, STARTING AT LINE TO WHICH 


S36 


ef HL. POINTS 
By a) S37 


AT THE END OF EACH PROGRAM LINE,-IF BIT LIST OF (TVFLAG) IS 


we ve ws we 


Sag SET, DUES THE CHECKING NECESSARY fO COMPLEPE LIST & ADJUST 
: S39 (STOP). ng 
OOFE 1E01 S40 : LD E,1 
O0AO Cpco00 R 541 LPo2s CALL PUI_USR 
O0AS | aa. 542 RST WRCH  $WRITE NL 
OOA4 FDCBO266 543 : BIT LIST, (LY-Y+TVFLAG) 
OAS Zor S44 JR Z,LPO2 $IF LISTING FUR LIST STAIEMENT 
OOAA SAGBSC 345 LD A, (DF_SZ) 
ooADp FO9G4F S46 SUB (IY-Y+S_POSN+1 ) 
OOBO 2OEE 547 JR NZ, LFO2 SUNLESS AT BOTTOM OF SCREEN 
OOBR2 AEB S48 * XOR E 
OORS cs S42 RET Z 31F HAVE QUTPUT CURRENT LINE 
OOBR4 ES S50 PUSH HL j ; 
OQOBS DS S51 FUSH DE 
OOS 216C5C S52 LO HL.»S TOP 
OO? CU7A0L R S53 CALL NEXT_L 
OOBC D1 . o54 POP CE 
OOBD El : babe POP HL 
OOBE 1SE0 S54 JR LPOZ 
557 . 
S53 PUTLSR: , § OUTPUT SOURCE RECORD PTD TO BY HL, USING PUT 
bake § IF CURRENT LINE [Fr t= “3° & PRESERVES E. ELSE 
: S60 3D t=“ “ & E t= 1 IF BEFORE CUR LINE, E := © IF AFTER. 
S61 5 (BREG) #= E (THIS WILL SURVIVE ERROR, SUT NOT CALCIR). 
‘ S62 3 ### CAN WE USE JUST E, WITHOUT (BREG)? #44 
S63 3 § EXITS CALLER IF RECORD NOT PROGRAM, ELSE A t= NL 
o0co ED4B495C 564 LD BC, (E_PFC)- 
Q0c4 CD0702 R S65 CALL CP_EC 3 NB IF HL = (DFILE), CUUNTS AS "AFTER" 
, 00C7 1463E _ 364 LO D, “>” 
oory 2305 S47 HR Z,LP1 § IF CURRENT LINE, WILL WANT CURSOR IN COL 5 - 
ooCcR 119000 S49 LPO: LD DE,9O 5; ELSE D t= 0, ALSO SET E fo ZERO 
OOcE CB13 56? RL E § CHANGE TO 1 IF BEFORE CURRENT LINE 
oono FD732D S70 LPILs LO (CIY-Y+SREG).E 
@ODS 7E S71 LO A, (HL) 
oon4 FE40 572 CP 01000000B 
OOS C1 573 POP BC 
OOD7 LO 374 RET NC ‘ sIF NOT A STATEMENT, RETURN FROM CALLER. 
OOns cs S735 FUSH BC 
oon? -CDAFO2 R 5376 CALL PUT_LN 3 OUIPUT LINE NUMBER 
oon 23 377 ING HL ; 
QOUD 23 573 INC HL . $SKIP OVER LINE LENGTH 


OOonE 23 ' 879 ING HL . 


LIST ON SCREEN ETC 


Loc 


OOLF 
QOES 
OOE4 
OOES 
O0E7 


O0ES 
QOES 


OOEC 
ooED 
OOEE 
OOF 2 
QOFS 
OOF7 


OOFB.- 


OOF D 


OOFF: 


0102 
O103 
O105 
0107 
a109 
o10c 
OLOF 
0110 
O11.1 
O114 
0115 
OL117 
a119 
O11A 
o11D 


O11F 
0120 


0121 


0123 


OB! CODE M STMT SOURCE STATEMENT 


FOCBO1S4 
7A 

A? - 

2305 


FDCBOICS 


DS 

EB 
FOCB3076 
Z13E5C 
CBYS 
FOCB276E 


2302 


2008 

Pes 
o2C01 

cbacot ; 


FEOD 
2806 


FEOE 


co 


“580 
bate | 
a2 
533 
Se4 
ses 
Bah 
So7 
baths 
Say 
Syo 
a9. 
S22 
Ses 
S94 
SoS 
S96 
S97 
S73 
Soy 
600 
601 
602 
603 
604 
605 
606 
607 
408 


609 


610 
611 
612 
413 
&14 
615 
6146 
617 
413 
61? 
620 
621 
622 
623 
624 
é25 
&24 
627 
623 
622? 
620 
631 
$32 
G33 


PUT: 


LP1S: 


LP173s 


LP2s 


LP3s 


SLUG?s 


LIST PAGE 4 
ASM 5.9 : 
RES SPC, (IY-Y+FLAGS) 
LD A.D 
ANL A 
JR Z,LPiS _| FEVENTUALLY WRITE “ “ IF NOT CURRENT LINE 
RST WRCH $°>" FOR CURRENT LINE 


sQUTPUT LINE POINTED TO BY HL, WITHOUT NL at ENL. 

sTHIS ROUTINE HAS 3 USES: 

H (1) IN LISTING (EITHER AUTOMATIC OR FOR LIST) 

$ (11) IN ECHOING THE INFUT BUFFER 10 THE SCREEN, * : 
3 


(IIL) IN COPYING THE CURRENT LINE TO THE INPUT BUFFER FOR 


EDIT 

sINIERFACE AS FOR LISTCH 
SWRITES FLASHING 3 BEFORE CHAR PTD TQ BY (X_PTR), & FLASHING 
§ CURSOR BEFORE SHAR POINTED TO BY (KUCUR). 

SPRESERVES DIE, MOVES HL ON PAST LINE, A ?= NL. 

sASSUMES THAT AT & TAB CONTROLS OO NOT OCCUR IN THE LINE, & | 
3 THAT SLUG & NL > 9. 


ASSERT (SLUG.UGT. 9) AND. (NL.UGT. 2) 


SET SPC, 


PUSH DE 
EX DE.HL 


(TY-Y+FLAGS) 
SENTER HERE WITH BIT SPC OF (FLAGS) CLEAR TO SIART LINE WITH 
3 SPACE (ONLY WURES IF LINE STARS WITH KEYWORD). 


RES L_STR» (IY-Y+FLAGS2) 

LO HL, FLAGS 

RES LMODEL, (HL) 

BIT INPLN, (LY-Y+FLAGX) 

JR Z,LP17 -$IF LINE IS STATEMENT, NOT INPUT DATA 
SET LMODE1, (HL) 


LD HL, (X 
AND A - 


-PTR) SDE -> NEXT SYMBOL 


SBC HL, DE 
JR NZ,LF2 


LO AL“ ?? 


CALL FLAS 


$ HERE IF DE = (X_PTR) 
sHA SFLASHING ? FOR SYNTAX MARKER 


CALL FROCUR 


EX DE,HL 
LO A, CHL 


) $ PICK UP NEXT SYMBOL 


CALL SLUG? F 


INC HL 
CP NL 

dk Z LPS 
EX DE.HL 
CALL LIS 
JR LP17 


POP DE 
RET 


CP SLUG 
RET NZ 


SIF END OF LINE 


TCH 


SIF A = SLUG THEN HL +8= 6, A t= (HL) & 
3 RETURNS 2} PRESERVES EVERYTHING ELSE 
FELSE, PRESERVES EVERYTHING & RETURNS NZ, 


, LIST, ON, SCREEN ETC 
» boc , 


0124 


0125 
0126 
0127 
0128 
O12? 
O12A 
012B 


0120 
0120 


O12D. 


O130 
O13. 
O133 
O185 
0133 


013B — 


O12C 
O13D 
O1L3F 
Q142 
O143 
O146 
0147 
0144 


QO14B . 


o14c 
O14F 
o150 
O1S2 
O18 
01546 
01358 
Q15A 
O1s¢c 


O15E 
O161 
-0163 
0165 
Q147 
0169 
O148 
O146C 
0170 
O172 
0174 


LIST : PAGE 5 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
, 2% 634 -INC HL 
23 635 INC HL 
23 626 INC HL , 
23 637 INC HL 
23 633 INC HL 
23 63y INC HL ; . 
/E 440 LD A» (HL) ‘ 
ce 641 RET . 
642 . 
: 643° FLASHA: SOUTPUT CHAR A TO TV, FLASHING. 
644 SPRESERVES BCDEHL, USES B’C’D’E‘H‘L’. 
po 645 EXX : 
444 ASSERT MASK_T=ATTR_T+1 
2ASFSC 647 LD HL»(ATTR.T) $L t= ATIRIBUTE BYTE, H t= MASK 
ES 643 PUSH HL 
CBBC 649 KES FLASH,H 
CBRFD 650 SET FLASH L 
228F5C 651 LOD (ATTROE)»HL 
Z1915C 652 LD HL, PFLAG 
54 653 LD 0, (HL) 
DS S54 PUSH [DIE 
G00 685 LO (HL)»O 
croeea 654 CALL SENDTV 
El é57 POP HL 
FD7457 653 LO (1Y~Y+P_FLAG) +H 
El 659 PUP HL 
222F5C 660 LOU (ATTRUT)»HL 
0g 661 EXX 
ce 662 REI 
4G3 
664 PRICUR: SIF DE = (K_CUR)Y THEN PRINTS CURSUR. 
£65 +MAKES BIT LMODE UF. (FLAGS) RIGHT 
666 SPRESERVES DE 
Z2ASB5C 647 LD HL» (K CUR) 
A7 668 ANL A 
EDS2 649 SBC HL, De 
co 670 RET NZ SIF NOT CURSOR POSITION 
SA4iSC 671 LO A,» (MOLIE) 
CHO? 472 RLC A 3A t= O FOR NORMAL MODE, 2 FOR EXTENDED, 4 FOR GRAPHICS 
2804 673 JR Z > LERS 31F NORMAL 
C4643 674 ADD A, “E’-2 $A t= “E’ OR “G’ 
1614 675 UR LPR4 
676 
21265C 6/7 LPR3: LD HL.FLAGS 
CBYE 678 RES LMODE, (HL) 
3E4B 6/9 LO A,“K? 
CBS 680 BIT LMODE1, (HL) 
ZEOR 681 JR ZaLPR4 SIF KEYWORD MODE 
CBOE 682 SET LMOLE, (HL) 
aC &83 INC A SA t= “LY FOR LETTER MOWE 
FIICBSO5E 684 BIT CAPS_L, (IY-Y+FLAGS2) 
Bed 685 UR 2,LPR4 SUNLESS CAPS SHIFT LOCK ON 
SE43 G26 LO A, ‘C’ 
ns 687 -LPR4: 9 PLISH CE 


* 


LIST ON SCREEN ETC 


Loc 


0175 
0178 
0179 


O17A 
017B 
o17C 
017D 
OQ17E 
O1L7F 
0180 
o1e: 

0186 


O137 
0188 
o18c 
o1sp 
QO1SE 
O1SF 


pl 


LIST ; PAGE 4. 


OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
_CD2c01 R 683 CALL FLASHA 
&89 POP DE 
ce 690 RET | . ‘ 
691 
692 NEXTLL: $ MOVE ON TO NEXT LINE 
493 ‘ 3 HL -> SYSTEM VARIABLE THAT HOLDS LINE # 
SE 694 LD E, (HL) 
23 695 INC HL 
56 696 LD D, (HL) + PICK UP CUR LINE # 
ES 697 PUSH HL 
EB 698 EX DE,HL 
23 699 INC HL: 
COFSO1 R 700 CALL FINDUL + FIND NEXT LINE 
CHOOUO =X 701 CALL GET_LN 3 PICK UP ACTUAL LINE # OF NEXT LINE 
E1 702 POP HL 
703 DE_HL: 3(HL-1) #= DE UNLESS GETTING INPUT LATA 
FUCB376E . 704 BIT INPLN, (IY+FLAGX~Y) 
co 708 RET NZ $IF GETTING INPUT DATA 
72 0 LO (HL)»D ; ELSE UPDATE LINE # 
2B 707 DEC HL. 
73 708 LD (HL).E 
co 709 RET 


« 


‘LIST: ON SCREEN! ETC 


‘Loc 


O19S 
0196 
O1Y7 
0193 
O19A 
O19C 
o19D 
O19F 


O1A2 


O1AG * 


O1AA 
OLAC 


O1BO 
O13 


O1BS 
O1B7 


O1E9 
O1BB 
O1BD 


o1c1 
O1C3 
O1CS 
O1cg9 


O1cB 
O1cD 


LIST PAGE 7 
‘OBI: COVE M STMT SQURCE STATEMENT : ASM 5.9 
ptr 710 #EJECT 
{rt 711 
, 712° LWh2: SHERE FROM WR_DIG IF DIGIT IS 2ERO 
7B 713 LD ALE 
A7 1714 AND A 
FS 715 RET M $s RETURN IF E<o 
1so0D 714 JR LISTCH ' ELSE WRITE CHAR FROM E S 
' 717 . 
718 WR_DIG: SWRITE DIGI? FROM NUMBER IN HL, -(VALUE OF DIGIT) IN Br 
' 719 sIF DIGIT IS ZERO, WRITES CHAR FRUM E OR NUTHING IF E<O 
vt 720 SIF DIGIT NONZERO, WRITES DIGIT & SETS E = “a” 
721 : SPRESERVES BCD 
(AF. 4 ’ 722 XOR A 
a9. 723 =LWD7: ADD HL, BC 
130 24 Inc A 
33FC 725 dR C,LWD7 sDIVIDE HL BY BC BY REFEATED SUBTRACTION 
‘ED42 . 726 SBC HL,»BC - SUNDOQ LAST ATTEMPT: THIS CLEARS CARRY 
30 727 DEc A 
2OF 1 723 JR Z,LWD2 sIF DIGIT IS ZERO 
C30000 X 729 JP PUTUIG , 
730 : 
731 LISICHs sOQUTPUT CHAR A FOR LISTING, ECHO OR EDIT 
732 : sADJUSTS BITS LNODE1 UF (FLAGS) & LLSTR OF (FLAGS?) KEFORE 
733 3 OUTPUTTING CHAR. , ' 
734 SPRESERVES BCDEHL, USES B‘C’D‘E’. 
735 
736 ‘ s*##ADDITIONAL FLAG TO SHOW K/L MODE 
FOCBOLAS 737 RES 4, (IY-Y+FLAGS) : ; 
FOCBO1S6 733 BIT 2, (1Y-Y+FLAGS) 
2304 739 JR Z,LLH1 SSHOW K MODE 
FDCHOLES 740 SET 4, (IY-Y+FLAGS) SSHOW L MODE 
. 741 3H 
742 
CDaAQDE X 743° LLHI CALL DIGIT? : : 
303E 744 JR NC,LLH2 sIF DIGIT, LEAVE BIT LMOUE1 ALONE 
745 
: 746 S##ADUVITIONAL CODE FOR DELETE 
FEOC 747 CP OCH . 
2836 74S JR Z,LLH1S sDELETE IS TO FORCE A CHANGE TO L MODE 
TA? . RH 
750 
FE21 731 CP SPACE+1 
S26 752 JR C,LLH2 3IF SFACE OR CONTROL 
FDCBO196 733 RES LMODE1, (1Y-Y+FLAGS) 
7354 . 
735 
754 sADDITIONAL TO ALLOW FOR “ON ERR CONT & ON ERR RESET’ 
FE7B 7357 UP 7BH 
2006 733 JR NZ» LLHIA 
FOUCHOLES T3? BIT 4, (IY-Y+FLAGS) 3°ON ERR’ & K MODE WILL FORCE To -K- AFTER 
2828 760 JR Z,LLH2 $IT ~ JUST LIKE “THEN’ OR ¢“:° 
761 3 Ht 
FECB 762 LLHIA CP THEN 
2324 763 JK Z,LLH2 


o 


LIST ON SCREEN ETC 


LAC 


O1cr 
O1D1 


O1D3 
0107 
OLD? 
o10n0 


O1LF . 


O1E1 
O1E3 
O1ES 
Q1ES 
O1E? 
O1ER 
O1EE 
OLEF 
OL1F3 
“O1F4 


LIST 


OBJ COLE M STMT SOURCE STATEMENT 


-FESA 


200E 


FDCB376E 


2016 
FDCBS0S6 


FOUBOLDS 
cy 


764 
765 
yi-3-) 
767 
7683 
769? 
770 
771 
772 
773 
774 
773 
77& 
777 
773 
77? 
780 
781 
782 
723 
734 


LLHiS: 


LLH18: 
LLH2: 


Cr ar 


PAGE 3. 
ASM 5.7 


JK NZ LLHIS SUNLESS COLON 
3IN A COMMAND, COLUN GIVES K MQWE UNLESS IN A STRING, WHEN IT 
$ GIVES L MODE. IN INPUT DATA (ORDINARY OR LINE) IT ALWAYS 
8 GIVES L MODE. 


BIT INPLN, (I1Y-Y+FLAGX) 
JR NZ,LLHIS 

BIT LSTR, (1Y-Y+FLAGS2) 
JR Z,LLH2 SUNLESS 
JR LLHIS 


CP fuer e 

JR NZ,LLHIE SUNLESS 
FUSH AF 

LD A, (FLAGS2) 

XOR 1.5HL.LSTR 

LO (FLAGS2),A 

POP AF 

SET LMODE1L, (IY-Y+FLAGS) 
RST WHCH 

RET 


IN STRING , 


STRING WuOres 


* 


1hIST ON SCREEN ETC LIST PAGE ¢ 
(LOC OBS CODE -M STMT SOURCE STATEMENT ASM 5.9 
i my 785 #EJECT 
oot ’ ! 7E& , 
787 FINDLL: sFINO LINE WITH NUMBER HL: SSUMES HL < 320208 
783 $IF FIND LINE, RETURN Z AND HL -> LINE, ELSE RETURN NZ AND 
737 3 HL -> LINE WITH GEXT LARGER #, OR NZ AND HL=(VARS) IF 
770 4 NO LARGER LIME # 
TPA LEAVES REQUESTED LINE # IN BC, CLEARS CARRY ‘ 
792 3SETS DE -> PRECEQING LINE OR = HL {fF NO PRECEDING LINE : 
O1FS €E5 792 PUSH HL , 
O1F& 2AS35C 774 LD HL, (PROG) 
O1F9 8654 725 LD ‘DH 
O1FA 5D 796 LO EaL 
O1FB. Ci ‘797 LFLIis POP BC «$B t= REQD LINE # 
-O1FC CDO702  R 793 CALL CP_BC 
O1FF ba 799 RET NC " SUNLESS LINE # < REGD LINE # 
0200 CS 800 PUSH BC 
o201 co3sFoz R sal CALL RECLEN . 
o2z04 EB 802 EX DE.HL 
OZ205 18F4 803 JR LFLI 7ELSE TRY NEXT 
so4 
$05 CPLBCs SCOMPARE LINE # OF LINE PTD TO BY HL AGAINST BC 
BOG $SErS Z IrF EWUAL, CARRY IFF LINE # < BC 
807 ‘ SPRESERVES BCLEHL - 
0207 JE SOs LO A, (HL) 
0208 Bs 809 CP B 
0207? Co 810 RET NZ 3IF MS BYTES DIFFER 
OZ0A 23 S11 Inc HL ° 
O20B 7E 812 1.0 A» (HL) 
o20C - 2B 813 DEC HL 
o2z0n BY $14 CP c , sELSE COMPARE LS BYTES 
O20E Cc? S15 RET 
+ B16 
817 SUBLIN: SFINDS EITHER DTH STATEMENT OR 1ST STATEMENT WHOSE KEYWORE 
S13 - 3 IS Ey IN A LINE POINTED AT BY HL. 
S17 $1. IF THE DUYH STATEMENT IS FOLWIND, THEN RETURNS Z WITH HL & 
e2o (CHADD) -> 1 BYTE BEFORE STATEMENT. (IF THE LINE HAS 
, B21 EXACTLY D-1 STATEMENTS THEN THE NEXT LINE COUNTS AS THE 
e22 D’TH.) 
S23 $2. IF E~STATEMENT IS FOUNL, THEN RETURNS NZ;NC WITH HL & 
e24 (CHADD) -> KEYWORD, DG IS DECREMENTED BY THE NO. OF 
825 3 STATEMENTS LOOKED AT. 
S24 73. IF E-STATEMENT NOT FOLIND & THE LINE HAS FEWER THAN 0-1 
827 3 STATEMENTS, THEN RETURNS NZ,C. WITH HL, (CHUALIU) -> NL At 
Sze ‘ 3 END OF LINE, , 
829 SPRESERVES BE. 
‘ eso SNB IT IS ANTICIPATED THAT: THIS ROUTINE SHALL NOT BE USED BOTH 
et ; TO COUNT STATEMENTS & [0 SEARCH FOR A KEYWORD AT THE SAME 
S32 ; TIME: EITHER D OR E WILL BE oO, 
BS3 SASSUMES NO AT OR TAB CUNTROLS, & THAT SLUG, “"", “8° & NL 
B34 ; CANNOT BE DATA FOR COLOUR CONTROLS (I.E. > &). 
B35 sMQTE THAT “fF CONDITION’ COUNTS AS A COMPLETE STATEMENT. 
O20F 836 ASSERT “(SLUG.UGT. 9). ANIL (f° "** SUGT.S)* 
O20F &37 ASSERT “(/ 34" UGT. oO). AND. (ML. UT.) ¢ 
Q2ZOF 24 $33 INC HL : 


—_ 


Y 


List’ GN StREEN' ETc 
Loc: ‘OBJ COVE M STMT SOURCE STATEMENT 


9210 
O211 


0212 
0215 
Q217 
Of18 
aZ19 

21A 
o21B 
o210 
O2Z1E 


O21F 
a220 
O22 1 
0224 
0227 
O239 
Q22B 
o220 
O22 
O220 
OZ32 
0234 
0236 
O233 
023A 
023C 
O20 
O23E 


23 
23 


22505C 
QEO0 


839 


LIST 


SUBLNI: 


LSN3* 


LSN3S: 


INC HL 
INC HL 


PAGE 10 
ASM 5.3 : 


sENTER HERE WITH HL => JUST BEFORE KEYWORD. 


_SSTATEMENTS ARE COUNTED RELATIVE fO THE STARTING POSITION, NOT 
3 THE BEGINNING OF THE LINE. 


LO (CHUADD),HL 
Lo f,0 

DEC D 

RET Z 

RST NXT_IS 
CPE 

JR NZ LSNSS 
AND A 

RET 


INC HL 

LD A, (HL) 
CALL SLUG? 
LO (CHADD). HL 
i rue 

JR NZ,LSN4 
DEC Cc 

uP “es ca 

JR Z,LSN45 
CP THEN 

WR NZ,LSNS 
BIT O,C 

JR Z,LSEN2 
CP NL 

JR NZ,LSNS 
DEC Oo 

Scr 

RET 


3C IS MADE ODU WXEN WITHIN A STRING 


SIF D°TH STATEMENT FOUNE : 


SUNLESS E-SrATEMENT FOUND 
SSE) NZNO 


“$A t= NEXT CHAR 


SUNLESS STRING! QUOTE FOUND 
SCHANGE PARITY OF C 


3IF COLON FOUND 
SUNLESS THEN FUUND 
s1F END OF STATEMENT (COLON OR THEN NOT IN STRING) 


sUNLESS END OF LINE : 
sTQ GET ZERO FLAG RIGHT 


© 


LIST 'ON' SCREEN 'E1C' 


ro 


fn) 


OZ3F «ES 
0240 JE cH: 
0241 FEAO 


0243 3317 
0245 CHGF 
O247 2514 


0247. 87. 
024A FAMEO2 
O24D.. SF. 


O24E “010500 
o251 BO02 
0253 QE12 


O235 17. 
O24 23 
O257 7E 


253 SOFB 
025A 1506 


oz5C 23 
o25D 9-23 
OZ5E  4E 
OZ5F 23 
O260 46 
0261 «23 
0262 09 - 
0263 D1 
0264 AT 
O265  ELS2 
0267 44 
O268 = 4U 
0269 19° 
026A EB 
0248 ‘C9 


R 


872 
873 
874 
873 
8376 
$77 
3738 
879 
880 
Se1 

32 
Hos 
$a4 
S35 
Ba4 
837 
Sag 
ay 
S20 
Sv. 
892 
S93 
B94 
B75 
S74 
B97 
Sve 
7? 
200 
901 
yO2z 
903 
904 
905 
VOR 
YO7 
902 
209 
910 


LIST 
Lot’ = =—-ORY COLE’ M' STMT SOURCE STATEMENT 


+HEJECT 


RECLEN: 


LRL2: 


LRL24: 


LRLZ8: 
LRL3: 


LALS: 


SET_BC® 


FAGE 11. 
ASM 5.9 


sFIND LENGTH OF RECORD PTD TO BY HL’ ; 
SPRESERVES HL, SETS BC = LENGTH AND WE = HL+BC, ALSO NC.NZ 


PUSH HL 

LO As (HL) 
CP 40H 
JR C,LRLZS 
BIT 5A 

JR Z)LRLS 
ADL A.A 

JP M,LRL2 
ccr 

LD BC,5 

JR NC, LRL24 
LD C,18 
RLA 

INC HL 

LO A, (HL) 
JK NC,» LRL24 
JR LRLS 


INC HL 
INC HL 
LD C, (HL) 
INC HL 
LO B, (HL) 
INC HL 
AnD HL. BC 


SIF SOURCE STATEMENT . 
$1F STRING UR ARRAY 


sIF MS 3 BITS ARE O11 (1-CHAR NO.) OR 111 (FOR VAR) 
SELSE 101, MULTIUCHAR. NUMBER. 

$ HERE WITH A=2*(HL) IF NUMBER OR FUR BLOCK 
sUNLESS FOR VARIABLE , 

33 NUMBERS AT S BYTES EACH + 3 BYTES FOR LOOP 


SNOW CARRY HOLDS "LAST CHAR" BIT (BIT 6 ON 1ST 
3 CHAR, BIT 7 ON THE OTHERS) 


FOP DE §$ HERE WITH HL--> BYTE AFTER RECORD 
sENTER WITH HL = Y, DE = X 
sEXITS WITH BC = Y-X,, HL = X, DE = Y, PRESERVES A 


“AND A 


SHI HL, UE 
LO BH 

LO CLL 
ADD HL,» OE 
EX DE,HL 
RET 


a . 


© 


Lr'st ON! SCREEN' ETC LIST PAGE 12 
Loc 8 OBJ' CODE M STMT SOURCE STATEMENT ASM 5.9 
911 #EJECT 
912 
. 9123 DELLE: SDELETE FROM (DE) UP TO BUY NOT INCLULIING (HL) 
o26C Ch6402 R 914 CALL SET_8C 
mG os 915 DELREC: , $ REMOVE RECORD (HL) OF LENGTH BC FROM PROGRAM OK VARIABLES 
j v1 '  * § ENTER WITH BCHL SET UP AS BY RECLEN 
gris = 917 ; $ CLOSES GAP BY MOVING UP REST OF STUFF AND UPLIATING na 
‘ 918 ; (VARS), wee. (SIKEND) 
#19 + PRESERVES HL, CLEARS CARRY A 

O26F CS! 920 PUSH BC 
0270 «78 921 LD A.B 
0271. 2F 0" 922 CPL 
0272 «47 23 LD BLA 
0273 79" ‘924 LD A.C 
0274 2F 925 cPL 
0275 4F' V2 LD C.A 
0276 3 $27 » ING BC "  $BC NOW NEGATED 
0277. CbOOO0O =X = Y28 CALL REMGSZ 
oz70 EB, 929 EX DE,HL 
O27B EL 930 FOP HL 
0270 19 931 . AD HL, DE sNB NO CARRY 
e270 DS 32 PUSH OE 
027E EDbO 933 “LOIR sMOVE DOWN 
oze0 EL 34 POP HL 
oz. C9 935 RET 


@ @ 6@6@ @ €® e6ee6ee@6e0666 806 e8e 80 6 @ 8 6 @86@e €6 6 8 


s 


LIST GN SCREEN 'ETC 


‘Loc 


‘0282 
0285 
O286 
0287 
O28A 
O28 

OZFO 
0273 
0276 
C278 
0278 
OZ9C 
O29F 


O2AF 
O2E0 
O2B1 
O2B2 
02u3 
O2E4 
OZBS 

O2H7 
OZBA 
O2ED 
o2co 
O20 
o205 
Oo“ 
o2ny 
o2cc 


o2cn 


O2CE 


a 


2A595C 
2B 
22505C 


‘21925C 
22655C 
CLOO00 
CHOONO 
3B04 
Z1F O03 
OF 
DAG 
30000 


DS 
56 

23 

SE 

ES 

EB 
1E20 
O118FC 
CDeSO1 
Q19CFF 
coyso1 
OEFS 
COP501 
70 
EDOOOO 
E1 

1 


Cp? 


<x wD DBD DW 


926 
937 
938 
939 
940 
941 
942 
943 
$44 
945 
IMS 
947 
948 
949 


930 


Sl 


952 
Fo3 
954 


55 


IAS 
P37 
958 
959 
y60 
FEL 
962 
9&3 
964 
GOS 
Ez-t~) 
GO7 
962 
969 
970 
971 
972 
973 
974 
9/35 
976 
977 
973 
979 
950 
YS 
P52 
vE3 
9o4 
925 
96 
WET 
Pag 


Gey 


LIST 
- ‘OB! COLE 'M STMT SOURCE STATEMENT 


#EJECT 


LINENO: 


PUT_LNS 


LPN3? 


LPN7®s 
LPNS: 


PAGE 13 
ASM 5.9 : 


sGE1S LINE NUMBER FROM EUVIT LINE, CHECKS THAT 11 


3 IS IN RANGE & LEAVES IT IN &c. 
$(CHUALU) &#-> 1ST CHAR OTHER THAN LINE NUMBER 
LD HL. (E-LINE) 


DEC HL 


LD (CH ADC). HL 


RST NXT.1S 


LD HL.MEMBOT 


. 


& 


” 


sMOVE CALCTR STACK DOWN TO THE MEMORY AREA SO THAT 


LD (STENXT). HL ¢ LINE #8 CAN BE READ EVEN WHEN SPACE IS SHORT. 


CALL ININI 
CALL FRZEC 
Jk CLO 


LO HL,-10000 


ADD HL, BC 
JP C.5YNERR 
JP RESE? 


SWHENCE TO SYNERR 


sIF NUMBER TOO BIG 


sWRITE NUMBER FROM BC VIA LISTCH® INTERFACE AS LISTCH 
sIF BC ¢ O THEN PRINTS O (FOR LINE NG. -1 {N ERRUR MESSAGES). 
3’ PRESERVES DEHL 


* PUSH DE 


PUSH HL 
xoR A 

BIT 7,B 
JR NZ, LPN7 
Lu HB 

LO LC 

Lo E,-1 

IR LENS 


SWRITE LINE NUMBER VIA LISTCH AS 4 LIGITS RIGHT ALIGNED SPACE 
FILLED. : 


sENTER WITH HL -> 1571 (MS) BYTE 
SFRESERVES DE, ADDS 1 FO HL 7 


PUSH DE 

LD 0, (HL) 
INC HL 

LD E, (HL) 
PUSH HL 

EX DE.HL 
LOE.’ ¢ 

LD BC,-1000 
CALL WRDIG 
LD BC, -100 
CALL WRUDIG 
LD C,-10 
CALL WRDIG 
LD Ask 

CALL PUTDIG 
POP HL 

POP DE 

RET 


ar 


'LIST ‘GN SCHEEN ‘ETC LIST 

‘Loc ‘Cid ‘COLE mM STMT SGURCE STATEMENT 
990 
O91 END 


PAGE 14. 
ASM S.9 


6. 6.6.4: 66 2-6 & 6 @.. 6.6 * SS eee 


* 


MBM STMT SOURCE STATEMENT ASM 5.9 


0000 
QOO1 
0004 
0007 
0008 
OOOH 
QO0E 
Oo1d 
QOO12 
OO13 
oo1s 
OO146 
0019 
OO1A 
oo1n 
OO1E 
QO1F 
0020 
0021 
0022 
0023 
0024 
o025 
0027 


cS 
QLOOFF 
CO9964 
Ct 
CDHO000 
ZABCSC 


‘110400 


BS 
2004 
23 


1 
419 
420 
42 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
422 
433 
434 
435 
436 
437 
433 
429 
44g 
Aa 
442 
442 
444 


445 


44G 


#HEAD AROS MOUULE 
#LIST CN 
#INCL MORESYSV.S 
BANK ENABLE EQU 6499H 
CALL BANK EG 6SiIDOH 
MOVE_$Z Eau DRIVES-4000H 
DEST7 EGU OFF FFH-MOVE_SZ+1 
FIX Ett DEST7-4000H 
CALI VBANK EQu CALL UBANK+F 1X 
GOTU_BANK Eau 6572H ‘ADDRESS GF "GO TO BANK" BANE SWITCHING 
Sos + AWARD, 
XFER_BYTES EQu 6722H  sINDIRECT DATA TRANSFER BETWEEN BANKS. 
GOTOLEXT EQU 6S15H  sFOR INITIALIZATION CODE {N HOME BANK 
: $ EXTENTION. 
SLVM ' Eau Q1ABH SALDRESS OF TAPE ROUTINES FOR SAVE, LOAD 
$ VERIFY AND MERGE COMMANDS. 
ALDSCT EGU O9F4H SADDRESS OF INITIALIZATION ROUTINE To 
$ BUILD THE SYSTEM CONFIGURATION TABLE, 
RESSCT EQU OC4CH ‘SADDRESS OF RESET ROUTINE fO ADD DEVICES. 
PASSING Eau OFOFH sALDRESS OF ROUTINE TO FUSH PARAMETERS To 
+ THE BEU ROUTINES ONTO THE MACHINE STACK. 
#LIST ON 


GLOBAL AROS, AR_LN, AR_NXT, GETAL 
EXTERNAL DELREC, INSERT, ENDSTT,LED4, INTPT? 
EXTERNAL K_CLS,LED12,LS4,SUBLN1,ENDTEM 
3THE AROSIN ROUTINE BANKSWITCHES TO THE HOME BANK, INSERTS BC # Gt BYTES OF 
3ROUM AT JUST AFTER’ LOCATION HL, AND HEN BANKSWITCHES AROS CHUNKS BACK IN. 


AROSIN: PUSH BC : ; 
LO BC,OFFOOH ; ; 
CALL BANK ENABLE 
FOr BC 
CALL INSERT 
LO HL, (SYSCON) 
LO LE, 4 
AUD HL.» DE 
LO Ay (HL) 
LO BO 
LO Cc,A . 
CALL BANK ENABLE 
RET 
GETAL: LD HL,(SYSCON) $s$START SEARCHING FOR LINE NUMBEK IN BC AT THE 
INC HL” 3 START GF THE PROGRAM AREA IN THE ARQS. 
INC HL 
LD E, (HL) 
INC HL 
LD 2, (HL) 
EX. DE,HL ‘ 
ARLNi: LO A» (HL) H 
CP EB $15 THIS THE LINE WE ARE LOOKING FOR? 
JR NZ,ARLN2 sNQ. : 
INC HL sMAYBE, LOOK AT NEXT FORTION OF LINE NUMBER. 


¢ 


AROS MODULE 


Loc 


O0028 
o02> 
‘OOZA 
OO2E 


O02 
oo2n 
QOZE 
OO2F 
noz0 
Oo31 


O035 
OOS4 
Oao3F 
Oost 
oo30 
OO3E 
OO3F 


O041 


0044 
o045 
0048 


OO04A 
oo4D 
OO4E 
oOoOS1 
O054 
o0S5 
OOS 
0037 
0059 
ao0sC 
OOSF 


0063 
0064 
00646 
O068 
O04B 
OOGE 


OO6F 
0070 
0071 


7E 


mh Ch 
Wor 


1SEE 


ES 
ZABCSC 
110400 


COY964 
Ci 
CDLAGO 
1819 


Ccbo000 
Cs 

ZABCSC 
110400 


FD340A00 


7E 
E&co 
2507 
O1LO0FF 
CDIP64 
Cc? 


472 
473 
474 
475 


- 476 


477 
478 


479 - 


450 
431 
432 
483 
4e4 
ASS 
426 
437 
423 
4a> 
490 
APL 
492 
433 
474 
495 
496 
437 
493 
4y? 
S00 
S01 
S02 
SO 
S04 
S05 
SOG 
307 
SOs 
S09 
210 
S11 
512 
S13 
514 
S15 
314 
517 
313 
S17 
S20 
S21 
522 
523 
S24 
S25 


ARGS 
OBJ CODE M STMT SOURCE STATEMENT 


ARLN2: 


ARWLN: 


LD A+ (HL) 
DEC HL 
CF OC 

RET NC 


INC HL 
INC HL 
LD E. (HL) 
INC HL 
LO OD, (HL) 
INC HL 
ADD HL, DE 


JR ARLN1 


PUSH HL 


_ LD HL, (SYSCON) 


LO DE,4 
ADB HL, DE 
LO A, (HL) 
LO C,A 
LO B,0 


CALL BANK ENABLE 


POP BC 
CALL GETAL 


JK ARLNZ 


AR_NXT® 


ARLN3: 


sHL POINTS TO THE START 


ARLN4: 


SENTRY POINT WHEN ADDRESS OF LINE HELD IN NXTLIN 


rt 
? 


31S IT REALLY THE LINE WE WANT? 
sHAVE EITHER FOUND THE LINE, 


SCOULD BE. 


PAGE 2 
ASM 5.9 


sGET LENGSH OF LINE 


SINTO DE 


GOR GONE PAST WHERE IT 


i} 


sADD LENGTH OF LINE TG WHERE WE ARE TQ GET START OF 
$NEXT LINE INTO HL 


3 


sSAVE LINE NUMBER FOR SEARCH. 
sBANK SWITCH ARGS CHUNKS IN. 


sRESIORE LINE NUMBER FOR SEARCH. 
sFIND THE LINE fO JUMP TO, 
SAND CONTINUE. 


CALL INTPT? 


RET Z 


LD HL» (SYSCON) 


LO O&.4 
ADD HL, DE 
LD A, (HL) 
LO CLA 
LD B,oO 


CALL BANK_ENABLE 
LD HL» (NXTLIN) 
LD CIY-Y+NSPPC),00H 


LO Ay (HL) 
AND OCOH 
JR Z,ARLNG 


LD BC, OFFOOH 
CALL BANK ENABLE 


RET 


LD D, (HL) 
INC’ HL 
LB E, (HL) 


sENABLE AROS CHUNKS. 


3RETURN IF CHECKING SYNTAX ON IMMELIATE COMMAND. 


3RESTORE NXTLIN. 


3GET HIGH BYTE OF LINE NUMBER 
SEND OF PROGRAM? 


3NG, JUMP. 


#SELECT ALL CHUNKS IN THE HOME BANK. 
SRETURN AFTER END OF PROGRAM. | 


OF THE CORRECT LINE # IN AROS AT THIS POINT. 
GET LINE NUMBER INTO PPC. 


sSTATEMENT ZERO 


6 


AROS MODULE 
OBJ CODE M STMT SOURCE STATEMENT 


Loc 


O072 
O07 
QOO77 
0078 
0079 


OO7A. 


O07B 
0070 
oo7D 
oo80 


age 
0084 

OOss 
O0aD 
OOsA 
oozc 
oOosSr 
ayereye) 
oovt 

OOS 
0Oo7S 
0096 
O0F7 

oo7s 

OOD 
OO?A 
OoO?7R 
OOF 
Qo7D 
OOAQ 


2 OOAL 


OOA4 
OOA7 


OOAS . 


QOAKB 
OOAE 
QOERL 
OORS 
OORS 
OOBS 
OOBS 
OOF 
OOBA 
OOBB 
QOBRE 


OOBF - 


aaca 
ee] Bata 
oon4 
OOS 
ONCS 
N0L7 
O0CA 


EDS3455C 
23 

SE 

23 

56 

23 

ES 

19 
22555C 
05 


2A4F SC 
EDSBC45C 
A7 

ENS2 
1111000 


2ACc45C 
cs 
OLOOFF 
COP P64 
Ci 
cLhoQeO 
ZABCSC 
110400 


19 


CD9964 
El 
ES 


526 
S27 
S23 


a 
S29 


S30 
S31 
S32 
S33 
$34 
S35 
S34 
S37 
SoS 
S39 
S40 
S41 
542 
543 
544 
S45 
S446 
547 
543 
S49 
S50 
So1 
Siz 
S53 
554 
S55 
SSG 
7 
S53 
aa 
S40 
S61 
S62 
S43 
544 
S65 
S44 
S467 
343 
S49 
70 
S71 
a72 
373 
374 
S73 
576 
377 
S73 
S79 


ARLNG: 


AROS 


LO (PFC), DE 
IN@ HL 

LO E, (HL) 

INC HL 

LO Df, (HL) 

INC HL 

PUSH HL 

ADD HL, DE 

LOD (NXTLIN)» HL 
PUSH CE 


LO HL.» (CHANS_) 
Dec HL 

LO DE, (ARSBUF) 
AND A 

SBC HL,DE 

LD DE, OOD0H 


“EX DE,HL 


ANT A 

SBC HL, DE 

JR NC» ARLNG 
LD ALL 

CPL 

LD CA 

LO AvH 

CPL 

LO BA 

INC BC 

INC BC 

LD HL» (ARSBUF) 
FUSH BC 

LD BC, OFFOOH 
CALL BANK_ENABLE 
FOP BC 

CALL DELREC 
LD HL» (SYSCON) 
LO DE, 04 

AnD HL» DE 

LO A: (HL) 

LD BO 

LO CA 

CALL BANK ENABLE 
POP HL 

PUSH 'HL 

LD DE,OOCFH 
DEC HL 

AND A 

SEC HL. DE 
JRC, ARLN7 

LO CL 

LO 8H 

INC BC 

LD HL» (CHANS_) 
DEC HL 


FAGE 3 
ASM 3.9 


$GET LINE LENGIH INTO LE. 


sSAVE COMMAND POINTER 
;SAVE START UF NEXT LINE OR END OF PROGRAM MARKER 


sSAVE LENGTH ON STACK 


3WAS BUFFER- ENLARGED BY A C ERSIZED LAST INSTRUCTION? 


$NOT OVERSIZED, SO JUMP. 
‘BUFFER TG BIG BY CONTENTS OF HL+1 


SSAVE NUMBER OF BYTES TO BE DELETED. 
SBANK SWITCH BACK TO HOME RUM AND RAM. - 


;DELETE THE EXCESS FROM THE AROS BUFFER. 
. BANK SWITCH ARUS BACK IN. 


3GET LINE LENGTH 


sSUBTRACT, BUFFER SIZE + 1 FROM CURRENT LINE LENGIH. 
31 
? 


F LINE LENGTH SMALLER fHAN BUFFER, THEN JUMP. 


woe 


ARGS 
Loc 


QOCB 


OOKE 
OOCF 
Oono 
o0ns 


Oon4 
OoOns 
OOLIS 
gona 
OouD 
OODE 
OODF 
OOEO 
OOE 
QOOE4 


QOE7 
QOOEA 
QUEE 
QOFO 
QOOF2 
QOOF3 
OOF 4 
OOF7 
OOFR 
QOFE 
O1dd 
0102 
O105 
O106 
0107 


0109" 


o10c 
QLOF 
o110 


O111 
o114 
O116 


o119 


OL11C 
o11D 
0120 
0123 
0126 
O129 


pas 4 
ASM 5.9 


sGET LENGTH 


SMOOVE FROM AROS SOURCE BANK # 255 (ueFF) TO 


§ HOME ROM DESTINATION BANK 0 (E=0), THE 
§ NEXT AROS FROGRAM LINE. 

SNOTE THE SOURCE ADDRESS UF THE LINE. 
SFIRST CHARACTER IN AROS BUFFER WILL BE 
$ SKIPPED OVER BY SYNTAX. 
SNOTE THE DESTINATION ADDRESS (IN ARS BUFFER) 


3 OF THE LINE. 
SNOTE LENGTH OF LINE TO BE MOVED. 
sNOTE BYTES ARE 70 BE MOVED IN ASCENDING URDER. 


SMOVE THE CURRENT PROGRAM LINE FROM AROS 
$ THE ARUS BUFFER. 
§GET THE STATEMENT NUMBER 
sINDICATE NO JUMPS. 


sSAVE STATEMENT # ANU FLAGS. 
sNOIE STATEMENT NUMBER. 
SCURRENTLY NO ERROR. 
SENABLE ALL CHUNKS IN THE HOME BANK, | 


SRESTORE STATEMENT # AND FLAGS. 
sI1F STATEMENT ZERO, GO HANDLE THE LINE. 
sKEAL STATEMENT NUMBER. 


SCLEAR E FOR SUBLN1 ROUTINE. 
SGET APPROFRIATE SUB STATEMENT. 
SAND GO HANDLE IT. 


3 


SNOTE THAT AROS IS PRESENT. 

SET. ‘ 
SRESERVE 207 BYTES FOR EACH PROGRAM LINE, 
SBYTE FOR AN INITIAL END OF LINE MARKER (0D) TO 
sSIMULATE HOW THE LINE WOULD APPEAR IN THE AROS. 


PLUS 1 


SMAKE A BUFFER OF THIS SIZE FOR PROGRAM LINES. YOU 
SPULL OUT UF ARCS. 


s{NITIALIZE POINTER 10 ARUS BUFFER. 
3GET # OF BYTES OF MACHINE LANGUAGE VARIABLES USED 


MCIDUILE ARGS 
OB! CODE M STMT SOURCE STATEMENT 
cnoo0d = =R Seo CALL AROSIN 
S81  ARLN7: 
C1 Sg2 POP BGC 
tA S23 POP DE 
21FFOO | Seq LD HL» OOFFH 
ES Sas FUSH HL 
Sao 
ns 527 PUSH DE 
ZAC4ESC Sag LD HL, (ARSBUF) 
24600 Sep LO (HL), ODH 
22505C 590 LD (CHADD), HL 
23 591 “INC HL 
ES 592 PLUSH HL 
cs S93 FUSH BC 
a10100 594 LO BC, OOOL 
cs 895 PUSH Bt 
CD2247 596 CALL XFER BYTES 
57 
FLIZEOA 593° LO Ay (LY-Y+NSPPC) 
FD340AFF 599 LD (IY-Y+NSPPC) »OFFH 
FEO1 600 CP 1 
cEOO 601 ALC ALO0O 
au 602 DEC A 
FS 603 FLUSH AF 
32475 604 LO (SUBPPC)A 
FIUSGOOFF 605 LO (1Y-Y+ERRNR) »OFFH 
OLOOFF 606 LO &C,OFFOOH 
COP964 607 CALL BANK ENABLE 
Fi 608 PUP AF 
CA0CQCOCO = X_-—s HOP JP Z,L54 
ac 610 INC A 
57 611 LO DA 
1E00 612 Lo £,00 
coodoo =X) 6138 CALL SUBLNI 
CAQDOO =X. B14 JP Z,ENDTEM 
CF 415 RST ERRUR 
16 614 DEFB 16H 
617 
613 
619 
21C65C 620 AROS! —LEFHETARSFEG- 
3680 621 —kLE-tHE Ys 80H $s BIT 7 
01n000 b22 LO BC, OODOH 
623 ; 
624 
625i -$BUFFER. 
214068 b2b LO HL» DRIVES 
627 
2B 628 DEC HL 
CHOQOQQ =X 629 CALL INSERT sMAKE ROCM. 
214068 . 630 LD HL, DRIVES 
22045C 31 LO (ARSBUF),HL 
ZABCSC 632 LD HL, (SYSCON) 
110600 633 LO DELS 


5 BY ARGS PROGRAM. 


INTO 


? = 


AROS MODULE 


Loc 


a12c 
-O12D 
O1ZE 
O12 
O1L3O 
Q133 
0134 
O1L37 
OSA 
O10 
OLSE 
O1:3F 
o141 
O142 
0145 
0148 
O149 
014A 
O14B 


O14c . 


0140 
O14E 
OQ14F 
O1s0 
O11 
a1s4 
0157 
O1SA 
o1sp 
O1SE 
OLSF 
O161 
O143 
O147 
O16A 
0140 
O16E 
O146F 
0170 
Q171 
O172 
O173 
O1L74 
0177 
O17B 
O17F 
0183 
-O186 
0187 
O18A 
O18B 


44 


ZABCSC 


CUPI64 
2ABCSC 
23 

23 

SE 

23 

546 

EB 

56 

23 

SE 
QOLOOFF 
CD99S4 
ZABCSC 
g10500 
OF 

7E 
FEOO 
2829 
EDS3S425C 
ims tlate rere) 
ZABCSC 
23 


FLUZ400FF 
FOCBOLIFE 
FDZ60A00 
210000 
ES 


210000 


FB 
C30000 


X 


X 


xX 
x 


G24 
635 
634 
637 
433 
639 
640 
641 
642 
643 
644 
645 
L46 
£47 
643 
649 
650 
631 
652 
433 
$54 
655 
634 
637 
65S 
659 
460 
é61 
6642 
643 
664 
665 


ARS15 


ARGS 
OBJ CODE M STMT SOURCE STATEMENT 


PAGE, 5 
ASM 5.9 


ADD HL, DE 
LOC, CHL) 

INC HL 

LD By (HL) | 

LO HL,» DRIVES 
DEC HL 

CALL INSERT 
LO HL, (SYSCON) 
Lo DE, 4 

AUD HL, DE 

LO A, (HL) ; ; 

LD BO : 
LO CA 

CALL BANK ENABLE 
LO HL» (SYSCON) 
INC HL 

INC HL 

LOE, (HL) 

INC HL 

LO Dl, (HL) 

EX WE, HL 

LO DB, CHL) 

INC HL 

LOE» (HL) 

LD BC, OF FOOH 
CALL BANK ENABLE 
LO HL» (SYSCON) $sAUTO-START AROS? 
LD BC, 5S : 
ADL HL, BC 

LO A, (HL) 

cP Oo 

JR Z,ARS1 

LO (NEWHPC), DE 
CALL KUCLS 

LO HL, (SYSCON) 
INC HL 

INC HL 

Lo &, (HL) 

INC HL 

LD D. (HL) 

EX HL,DE 

EC HL. 

LO (DATALI) »HL 
LO (IY-Y+ERR_NR) »OFFH 
SET 7, (1Y-Y+FLAGS) 

LD (LY-Y+NSPPC),00H 
LD HL,LEU4 
PUSH HL 

LD HL,ENDSTT 
EI s ENABLE 


SENABLE ARUS CHUNKS, 


iGET STARTING ARGS ADDRESS. 


3GET STARTING AROS LINE NUMBER. 


sENABLE ALL. CHUNKS IN THE HOME BANK. 


3NO AUTO-START, JUMP. 

sLINE TO JUMP TO IS NEXT STARTING LINE. 

sCLEAR THE SCREEN BEFORE TAKING OFF. 

sRESET DATA ADDRESS FOR READING DATA OUT OF ARDS. 


sNQ CURRENT ERROR. 
sINDICATE INTERPRETING, 
sFIRST STAIEMENT. 
SRETURN ADDRESS AFTER PROGRAM EXECUTION. 


INTERRUPTS. 
START THE CYCLE. 


sENABLE INTERRUPTS. 
3JUMP INTG MAIN EXECULIVE LOOP IF NUT 


EI" 
JP LéED1S 


MAKE SFACE FOR THEM IN RAM JUST BEFOKE AROS BUFFER. 


NOT JUST CHECKING ‘SYNTAX 


* 


AROS MODULE AROS 


Loc OBJ COLE M STMT SOURCE STATEMENT 
638 
&89 
690 


s AUTO-START. 


PAGE & 
ASM 5.9 


ea ee 


wg 


are BAXX SYNTAX ; PAGE 1 : 
Loc” OBJ CODE M STMT SOURCE STATEMENT AEM 5.9 


, 1 ¥*HEAD = =SYNTAX CHECKING 
419 #LIST ON 
420 #INCL  MORESYSV.S 


421 BANK ENABLE EC 6499H 
22° CALL..BANK EGU é5D0H 
/ 423 MOVE_SZ EGU DIRIVES-&000H 
| 424 DEST7 Ewu OFFFFH-MOVE_SZ+1 
425 FIX Eu DEST7-6000H 
424 CALL_VBANK Eau CALL_BANK+F IX 
427  GOTO_BANK EQU 6572H sADDRESS UF "GO TO BANK" BANK SWI CHING 
423 + AWARD. 
429 XFER_BYTES Eu $722H sINDIRECT DATA TRANSFER BETWEEN BANKS. 
| ; 430 GOTO_EXT EQU 6815H  $FOR INITIALIZATION CODE IN HOME BANK 
43h : + EXTENTION, 
432 sLVM EQU O1ABH sADDRESS OF TAPE ROUTINES FOR SAVE, LOAD 
| 433 . + VERIFY AND MERGE COMMANDS. 
424 BLUSCT EQU O9F4H  sADDRESS OF INITIALIZATION ROUTINE TO 
435 $ EBUILD THE SYSTEM CONFIGURATION TABLE. 
| 434 RESSCT EQU OC4CH sSAUDRESS OF RESET ROUTINE TO ADD DEVICES. 
437 PASSING Euu OFOFH Ss ALIIRESS OF ROUTINE TQ PUSH PARAMETERS TO 
438 + THE BEU ROUTINES ONTO THE MACHINE STACK. 
| ; 439 "GLOBAL SYNTAX, CHK_SZ,SYNERR» FIX_U, TENG, END?» ERR4, ERR 
“440 GLOBAL —- EXCUTE ERR2, BREAK?, DYADIC, 1EMP'38, TEM1O 
441° GLOBAL = FIX_U1,LT22Z, TEM1,OPTNO, STK_O, SKIP 
| , 442 GLOBAL STOP, FOR, NEXT, READ, DATA, RESTBC, RAND, CONT, JUMP, CLEAR 
442 GLOBAL GO_SUB, RETURN, PAUSE, DEF, CLR_BC : 
444 GLOBAL  —- ENDSTT. LS4,ENDTEM, SOLIND 
| 445 GLOBAL = TEMP39, FOR, READ 
44 
447 EXTERNAL GETAL sAKOS 
| 449 EXTERNAL NC_HL, TCHL,LES + BASIC 
447 EXTERNAL BEEP sKSCAN 
450° EXTERNAL NEWDEV 3s SYNTWO 
451 EXTERNAL K_CLS,R.ATTS $101 
452 EXTERNAL K_CUMP +10_2 
: 453 EXTERNAL K_NEW, INSERT, X_CALC sEDIT 
| 454 EXTERNAL FORMAT, MOVE, ERASE, OPEN, CLOSE, CAT | + CHANS 
455 EXTERNAL FIND_L,»DEL_DE,LINENO, SUBLN1,K-LIST»K-LLST»DELREC $LIST 
456 = EXTERNAL K_PRIN, COLITM,K-LPR, INPUT, BORDER, GR_COL, RSET +SYNTWO 
457 EXTERNAL PLOT, DRAW, CIRCLE + GRAPHS 
458 EXTERNAL EXPRN, INTPE? 3 EXFRN 
459 EXTERNAL LET, FIND_N, VIM, GET_EL, POPSTR» ALPHA? 3 IDENT 
460 EXTERNAL FF2A,FP2BC, STKBC 3 INCUT 
Aol EXTERNAL TESTO : sCALC 
4&2 EXTERNAL’ SELECT 
4&3 EXTERNAL AR_LN, AR_NXT s AROS 
4&4 
465  SYNKW? sOFFSETS INTO TEMPLATE TABLE 
Abd : 
0000 BS 447 DEFB TEMPS2-% ; CEH DEF 
oo0L DO 468 fEFB TEMPSe-$ : CAT 
0002 CO 4&9 DEFB TEMPSS- 3 DOH FORMAT 
0003 C4 470 DEFB TEMPS4-$% ; MOVE 


0004 ce 471 DCFR TEMPS7-% DELETE 


i 


SYNTAX CHECKING SYNTAX PAGE 2 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
0005 83 472 DEFB rEMPS3-% 3 03H  UPEN 
0004 BS 473 DEFE TEMPS4-§ + D4H CLOSE 
0007 97 474 DEKE fEMF41—% 3 DSH MERGE 
o00e = «85 475 DEFB TEMP 40-% 3 VERIFY 
0007 94 476 DEFB. TENP42=$ ; BEEP 
OOO «99 477 DEFE TEMP 43-% + 08H CIRCLE 
oOOB 9c 478 DEFB TEMF44-¢ ; FORE 
oo0c 8 47? DEFB TEMP 4S~$ 3 BALK 
ooOn = 8c 480 DEFB TEMP46-% ; FLASH 
OOOER = 90 44 DEF TEMF'47-% ; BRIGHT 
OOOF = 9C 482 DEFB TENP43-¢$ ; INVERT 
0010 9c 4e3 DEFE TEMP42—$ ; OVER 
O11 -9C ae DEFB TEMFSO-$% ; CWT 
0012 83 4a DEFE TEMP 3S—$ + EOH LFRINT 
OO13 «65 4S DEFB 1EMPS4-% 3; ELH LLIST 
0014 32 437 DEFE TEMFOS—$ + EZH STOP 
oo15 70 4a DEFB fEMP29-$% + EFH READ 
0016 72 age DEFB TEMP30-$ + E4H LATA 
0017-74 470 DEFER TEMP 21-% + ESH RESTORE 
oo1g 4c 4? 1 DEFE TEMP 13-% "s EGH NEW 
o019 98 42 DEFB TEMPS1-$% $ E7H BORDER 
OO1A 5A 493 DEFB TEMP 20-% + ESH CONT 
OO1n. 43 494 DEFB TEMP 11-% 3 EYH DIM 
oo1c 45 495 DEFE TEMP 12-% 3. EAH REM 
oo1n | 2F 496 DEFE* TEMPO7-$ 3 EBH FOR 
OO1E 1B 497 _ DEFB TEMFO2~% 3; ECH GO TO 
OO1F = 23 ' 493 “DEFB TEMPO4-$ 3 EDH GO SUB 
0020 3B aor DEFER TEMP10-% 3 EEH  INFLT 
0021 7B 500 DEFB 1ENPS2-$ ; EFH LOAD 
o02z2 48 501 DEFB TEMP 1S-$ + FOH LIST 
0023 13 502 DEFB TEMPO1-% 3 F1H LET 
0024 = 5D 50 DEFER TEMP23—% 3 FZH PAUSE 
ooz5  2F 504 DEB TEMPOR-$ 3 FSH NEXT 
0026 47 S05 DEFB TEMP14-$ + F4H PUKE 
0027. 31 S04 DEFB TENPOD-% 3 FSH PRINT 
0028 55 507 DEFER TEMP23-$ 3 F6H PLOT 
ooz? & 508 DEFER TEMP14-% 3 F7H RUN 
oOza 71 508 DEFE TEMP 33-$ 3 FSH SAVE 
OO2B 44 510 Der TEMP17-¢ 3 FYH RAND 
Ooms 14 S14 DEFER TEMPOS—$ + FAH IF 
oo2D 64D 512 DEFER TENP22-¢ - + FEH. CLS 
OO2ZE 60 S13 DEFE TEMPS2-$ . + FCH DRAW 
OO2F 48 514 DEFB TEMP21-% 3 FDH CLEAR 
O030 19% 515 DEFE 'TEMPOS—-$ 3 FEH RET 
0031, 61 516 DEFB TEMP34-% + FFH COPY 
0032 S17 ASSERT $=SYNKW+100H-MIN_EW 

519 

. g19 $#% CODE FOR AUDITION OF NEW KEYWORDS 
oo22 AG 520 SSYNKW: DEF B fENPS9-$ 30(CH DELETE 
0033 = AG S21 DEFB TEMP6O-¥% 37BH ON ERR 
0034 AS 522 EFS  TEMP&1-% $7FH RESET 
0035 AA 523 DEFB = TEMF62-$ 37UH SOUND 


S24 pte 


we Fs we elUOCrmUmUmUmMUCmCUCUOCOCUCUCUCOUCUCUOUCTOCUCUCUTFUCCDSFGLUC COS DSCCDSHLUCCUMSHSGC( ‘<‘ SHUCUMSFPFhC<CiO/W:tC~™mS!| sd 


° 


‘ 


SYNTAX CHECKING SYNTAX PAGE 3 
Loc CBJ CONE M STMT SGURCE STATEMENT ASM 5.9 
525 #EJECT 
B26 
527 3MS BIT ZERG: CODE (SEE TEMACT) 
S23 3MS BIT SET: SEPARATOR 
i 529 
0036 01 S20 TEMPO1: DEFB 1 sLET DEST = EXPRN 
0037 3D 531 DEFB EWUAL 
0033 a2 B32 DEFER 2 
S33 : 
0037 06 S34 TEMPO2: DEFR 6 s;GOTO N 
003A a0 35 DEFB O 
QOOSB ACOS R S34 DEFW JUMP : ; 
S27 
oo30 O64 / 8393 TEMPOS: DEFH 6 3IF NO.EXPRN THEN STMT a 
OOSE cB S39 JIEFB THEN ; 
OO3F os S40 DEFB S 
0040 1603 R S41 DEFW COND 
; 542 : : 
o042 O06 543 TEMPO4: DEFB 4 sGOSUB N 
0043 a0 544 ; DEFB O 
"0044. 5406 R 545 DEFW GO_SUB 
. 546 
0046 00 547 TEMPOS: DEFB O sSsToP 
0047 1403" R 548 DEFW STUP 
54? 
a04? ere) S50 TEMPOG: DEFB O s RETURN 
0040 SFOS, R S51 DEFW RETURN 
S52 é . ; 
Q04t O4 S53 TEMPO7: DEFB 4 3FOR LETTER = NO.EXPRN TO NO.EXPRN CSTEP NO.EXPRNI 
Oo4n 3D S54 DEFR EQUAL 
OO4E 06 S55 . DEFB 6 
OO4F cc 554 DEFB Ta ° 
Oos0 06 S57 LEFB 6 
o051 Os S53 DErB S 
OOS2 3303 R SS9 DEFW FOR 
‘ S60 
Q0S4 04 541 TEMPOS: DEFB 4 sNEXT LETTER 
ooss 00 562 DEFB © 
00546 1004 R SiGe DEFW NEXT ; 
544 ae ; 
ooss Os . 545 TEMPov: DEFBR S sPRINT CEXPRNICCOMMA-OR-SEMICOLON CEXFRNIJ 1+ 
005? 0000 X S46 DEFW KFRIN 
547 
OoOSB OS 545 TEMFio: DEFB 5 s INPUT DEST 
vost ane ° X S49 DEFW INPUT ies 
570 : 
OOsE 0s 571 TEMP1i: DEFB 5 $DIM LETTER CDULLAR] ( NO.EXPRN CCOMMA NO.EXPRNI* ) 
OOSF 0000 X S72 DEFW DIM ; : ' Ps cael ah ge arageh, We : 
573 we 
OO41 os 574 . TEMFi2z: DEFB S sREM ANY-TEXT 
0062 BEOL R 575 SEFW REM 4.2228 
: 576 4 
0064 a0 S77 TEMP13: DEFE oO : sNEW 
0065  o000 X 578 DEFW KNEW 


SYNTAX CHECKING 


Loc 


0067 
0048 


QOO4A 
Q04B 


006D 
QOGE 
OO6F 


GO71 
0072 


0074 
0075 


OO77 
0078 


QOO7A 
00/B 


0070 
OO7E 
QO7F 


Oo081 
0082 
O033 


OOS 
O03 


QOS 


089 


0088 
oo8c 
OO8E 
_ 008F 
0080 


O09? 
O0D3 


O09 
OOFE 


O093 
ongg 


OOVR 


O23 
E&05 


OS 
0000 


OS 
0000 


OS 
o0a0 


OB 


a7? 
S80 

bachece | 
S32 


53 
524 
5e5 
536 
537 
58g 
589 
590 
S74 
592 
S93 
5974 
595 
56 
597 
598 


599 


600 
601 
602 
602 


SYNTAX 
OBJ CODE M STMT SOURCE STATEMENT 


TEMF'14: 


TEMP1S: 


TEMP14% 


TEMP17:. 


TEMP20: 


TEMP215 


TEMP 22: 


TEMP23: 


TEMP28: 


TEMP2¢% 
TEMP30O: 
TEMF31: 


TEMP32: 


TEMF348 


TEMP 3S: 


DEFB 
DEFW 


DEFB 
DEFW 


‘DEFB 


DEF 
DEFW 


DEFE 
DEFW 


DEFB 


DEFW- 


DEFB 
DFW 


DEFB 
DEFW 


vEFB 
DEFW 


DEFB 
DEFW 


DEFW 
DEFW 
DEFW R 


Ceres 
DEFW 
y 


DEFW 
DEFW 


DEF W 


DEFB 


3 
RUN 


5 
K-LIST 


8 
QO 
PORE 


3 
RAND 


QO 
CONT 


3 
CLEAR 


0 
KCLS 


DEFER 
QO 
PLOT 


DEE 
Q 
PAUSE 


DEFB 
REAL 


DEFB 
DATA 


DEFB 
ESTOR 


DEFB 
s. 
DRAW 


DEFB 
kK DLIMP 


DEFB 
K_LPR 


‘DEFB 
KULLST 


il 


on. 


a 


5 RUN 


sLIST 


3POKE 


FAGE 4 
ASM 3.9 


CNO.EXPRNI 


CNO.EXPRNI 


NO.EXPRN » NOJEXPRN 


sRAND CNO.EXPRNI 


3s CONT 


SCLEAR C€ NO.JEXPRN J 


sCLS 


(FOR CLEAR SCREEN) 


3PLOT £C COLOUR-ITEM C , \ 3 J] J® NO.EXPRN » NO.EXPRN 
sPAUSE NO.EXPRN 


sREAD VARIABLE C, VARIABLE]# 
SDATA EXPRN C,» EXPRNI# 
SRESTORE CNO.EXPRNI 


sDRAW CCOLOUR-ITEM C > \ 3 J J# NO.WEXPRN , NO.EXFRN 
C » NO.EXPRN J 


;COFY 
SLFRINT CPRINT-ITEM] ccomMa- OR-SEMICOLON 
CPRINT~ITEMII+% 


sLLIST CNO.EXPRNI 


3SAVE STR.EXFPRN SAVE-SFPECIFIER 


« 
. 


SYNTAX CHECKING SYNTAX PAGE 53 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 | Da OE Bad RE ER eae ns 
4623 . 
00s OB 634 TEMPS9: DEFB 11 ;LOAD STRsEXPRN LOAD-SPECIFIER ? ee ee toe 
635 | oe 
oosD OB 636 TEMP40: DEFB 11 iVERIFY STR.EXPRN LOAD-SPECIFIER | 
7 637 , 
OOSE OB 638 TEMP41: DEFB 11 3 ;MERGE STR. EXPRN : 
639 | 
OOF 640 ASSERT (TEMP41=TEMP40+1). AND. (TEMP40=TEMPS9+1). AND. (TEMPS9=TEMP38+1) 
| 641 
OO9F 08 642 TEMP4z: DEFB 8 ;BEEP NO.EXPRN » NO.EXPRN 
COAG 00 643 DEFB 0 
OOAL Q000 xX 444 DEFW BEEP 
445 
00A3 09 644 TEMP43: DEFB 9 S$CIRCLE C COLOQUR-ITEM C , \ 3 7 3# NO.JEXPRN » NO.EXPRN a 
oOAd 05 647 HEFB 5 ; » NG.EXPRN at 
OOAS  g000 x 448 DEFW CIRCLE 
449 
OOA7 07 450 TEMP44s DEFB 7 SINK NO.EXPRN 
| 451 | 
ooAs «07 652 TEMP4S: | DEFB 7 SPAPER NO.EXPRN 
ae 453 te 
QoA9 07 454 TEMP44: DEFB 7 SFLASH NO.EXPRN * 
455 
OOAA 07 656 TEMP47: DEFB 7 SBRIGHT NO.EXPRN 
657 
QOAB 07 458 TEMP4g: DEFB 7 SOVER NO.EXPRN 
459 
ooac (07 640 TEMP49: DEFB 7 - INVERT NO. EXPN 
Sot . . , 
ooan | 6&2 ASSERT (TEMP45=TEMP44+1). AND. (TEMP44=TEMP45+1). ANU. (TEMP47=TEMP46+ 1) 
OAD hd | ASSERT (TENP48=/EMP47+1). AND. (TEMP49=EMP48+1) 
bb4 
OOAD 08 665 TEMPSO: DEFB @ SOUT NO.EXPRN » NO.EXPRN 
OOAE a0 bbb CEFR 0 
OOAF, BFOS R647 DEFW OUT 
668 | 
OOB1 04 649 TEMPS1: DEFB & " $BORDER NO.EXPRN 
OOB2 00 &70 DEFB 0 
OOB3 0000 X 471 DEFW BORDER 
472 , 
OORS 05 ° 67% TEMPS2: DEFB 5 sDEF FN 
CORE D804 R 474 DEFW DEF 
: &75 
COR 06 | 476 TEMPS3: ° DEFB 4 ;OPEN # NO.EXPRN » STRING-EXPRN 
OOR? = 20 477 DEFER *,/ 
OOBA 9A 478 DEFB 10 
oonB 05 479 DEFB 5 
OOBC Q000 X 480 DEFW OPEN ; 
| 621 
OOBE 04 482 -TEMPS4: [EFB 6 CLOSE # NO.EXPRN 
GOBF 00 483 LEFB O 
ooco 0000 «xX «44 DEFW CLOSE 
685 


QO0C2 OA 6364 TEMPSS: : DEFB 10 : sFORMAT STRING-EXPRN 


4 


SYNTAX CHECKING SYNTAX FAGE & 


LOC | =6OB CODE M STMT SOURCE STATEMENT ASM 3.9 
onc 2c 6287 DEFER “,”% 
ooc4 OS 6383 _ DEFR S 
o0cs QN00 X é59 DEFW FORMAT 
490 
OOC7 OA . 691 TEMPS6: DEFB 10 sMOVE STRING-EXPRN » STRING~EXPRN 
e0cs 2C 692 DEFB “,° 
oor? O58 493 DEFB S 
Q0CA : O00 X 674 QEFW MOVE 
495 
OC OA 696 TEMFS7:s DEFY 10 SERASE STRING-EXPRN 
Lalé] ms &) 2c . 697 : DeFB “,% 
OORE Os 693 DEFB 5S 
QOLF Q000 X 699 DEFW ERASE 
700 : 
oon1 OA 701 TEMPSSs DEFER 10 sCAT 
oon 2c 702 DEFB 7,7 
oons os 703 DEFB S 
Oor4 0000 X 704 DEFW CAT 
: 703 
: 706 ;#% CODE FOR AUDITION GF NEW KEYWORUS. 
oops Os 707) TEMPS: DEFB S : SDELETE 
O07 8C07 R 708 ’ DEFW DELTE 
709 ; 
Oon? Os 710 TEMP6O: DEF 0 370N ERR 
OOnA 2B07 R /i11 . DEFW CINERR ’ 
712 . 
Qoue 05 ' 713 TEMP61: DEFB S 3; RESET 
oonn Q000 X 714 DEFW RSET 
715 
OODF OS : 71& TEMP62: ’ DEFB a 3; SOUND 
QOEO E307 R 717 DEFW SOUND 


713° 5 Ht 


OOE2 
OOES 
OOED 
OOEA 
OOEB 
QOoEn 
OOFO 
OOF? 
OOFS 
OOF6 
OOF? 
OOFA 
OOFD 


QOFF 
0100 
OL03 
O106 
o107 
O10A 
010c 
OL0E 
O11 
QO113 
O115 
O11g 
— O119 
O11A 
“O11B 


o11c 
OL1LE 
O120 
OQ12E 
O124 
O16 
O123 . 
O1ZA 


o12c 
OLZE 
O11 
O132 
O1SS 
O13 
0137 
0133 


CHECKING 


OB! CODE 


FOICBO1 BE 
CoO000 
78 

Bl 

2208 
SAC4ESC 


CBE7F 


aD 
B2305C 
1801 


CLOGGE 
FD2400 
FAASO2 


0400 
FEOD 
cac4o1' 
FE3A 
25EA 
217401 
ES 

4F 


_ 79 


FEOC 
231A 
FE7B 
S308 
FESO 
3004 
CB47 
Z00E 


DSce 
DAAGOZ 
4F 
210000 
oP 

4E 

0? 
1219 


M 


a 


R 


R 


719 
720 
721 
722 


SYNTAX 
STMT SOURCE STATEMENT 


#EJECT 


SYNTAX: 


LS4A: 


“ cP 


LSSAz 


FAGE 7 
ASM 5.2 


SCHECK SYNTAX GF COMMAND OR PROGRAM LINE AT (CELINE). 


RES INIMPT, (1IY-Y+FLAGS) 


CALL LINENG 


LD A.B 
OR C 
JR Z,LS4AQ 


LO A» (ARSFLG) 


BIT 7,A 


uP NZ,SYNERR 


XUR A 


LO (SUBPPC),A 
DEC A 
LD (ERRUNR).A 


$IF LINE NUMBER LENGIH IS ZERO, 
STHEN OK SO JUMP 


sLINE NUMBERS ARE NOT ALLOWED WHEN RUNNING 


3(SUBFPC) &= 0 


3(ERRLNR) = -1 


sHERE WITH (CHADD) -> JUST BEFORE STATEMENT (SUBPPC)+1 IN LINE 


3 (SP) 


JR LSS 
RST NXT. 18 
. CALL XCALC 


= RETURN FRUM SYNTAX OR EXCUTE 


INC (IY-Y+SUBPPC ) 


JP Ms SYNERR 
RST IGN SP 
Lo B90 

CP NL 

JP Z,HOP 

Cr ver 

JR Z,LS4 

Lo 
PUSH HL 

Lo c.A 

RST NXT_IS 
Lo ALC 


OCH 
JR Z+LS5B 
CP 7BH 

JR C,LS5A 
CP SOH 

JR NC, LSSA 
BIT 0,A 

JR N2,LS55 


SUB MIN_EW 
JF 0, 5YNERR 
LO C.A 

LO HL» SYNKW 
ADD HL, BC 
LOC, (HLY 
ADD HL. BC 
JR LNT2 


HL ENDS tT 


s1F TOO MANY STATEMENTS ON LINE 
§ IF STATEMENT IS NULL & THERE ARE NO MORE ON THIS LINE 
$IF STATEMENT NULL .BUT THERE*S ANUTHER 

SRETURN ADDRESS FROM ACTION ROUTINES 


CALL NXT.IS TO ALIGN ON 1ST CHAR AFTER EW 
A ?= KEYWORD 


ws se 


$## NEW CODE FOR ADDITION OF NEW KEYWORDS 

$1F DELETE, THEN USE SUPPLEMENTARY SYNTAX KEYWORD fOKEN 
STABLE, SO GO [Ww IT. 

3fF NUT ON ERR THROUGH RESET, 
1GO Oo IT 


DEAL WITH IT AS USUAL. 


3IF FREE OR STICK, 
sFUNCTIONS. 
5 tt 


THEN NOT A VALID KEYWORD - THEY ARE 


sIF NOT KEYWORD 


SSTART ADOR OF KW TABLE 

§- PLUS DISPLACEMENT 

sGET TEMPLATE OFFSET FROM TABLE 
$—- PLUS OFFSET 


SYNTAX CHECKING 


Lac 


O1ZA 
o13C 


O13E . 


0140 
0142 


0144 
O1446 
0143 
O144 
0140 
O14E 


SYNTAX 


OB! CODE M STMT SOURCE STATEMENT 


FEOC 
2004 
BEOO 
1808 
LS7A 


FEOS 

2002 

SEO2 
213200 R 
4F 

1SE5 


Cr 
JR 
Lo 
JR 


OCH 
NZ,LSSO 
A,OH 
LSSE 


SUB 7AH 


SH 

NZ, LS SSE 

A, 2H 

HL» SSYNKW 


“C,A 


LSSc 


PAGE & 
asm 5.9 


sCOUE FOR ADUITION OF NEW KEYWORDS 
sDELETE? 
3NO, THEN JUMP 
3YES, THEN INQEX INIG SUPPLEMENTARY FABLE Is Q. 
SWITH INDEX IN HANLL GO ON... 
SIF ON ERR, INDEX = 1 
SIF SOUND, INDEX = 3 
sRESET? 
3NO, THEN YOUCVE GOT YOURE INDEX so JUMP 
sIF RESET, INGEX = 2 
GET ALDRESS OF SUPFLEMENTARY SYNTAX KEYWORL! TABLE 
*GET INDEX INTO BC, B IS 0 
3AND DEAL WITH AS YOU WOULD ORIG INAL KEYWORKU. 
3 tt 


¢ ” 
o 


SYNTAX CHECKING SYNTAX PAGE 


Loc OB! CODE M STMT SOURCE STATEMENT ASM 3.9 
737 #EJECT 
pated 
737 NEXTEM: SHERE WITH (CHADD) -> CHARACTER IN TEXT, WHEN READY To 
720 3 GET NEXT fEMFLAIE CHARACTER 
Q150 2A745C 791 LO HL, (TADDR) 
O1S3 JE 792° LNT2s LOD A, (HL) $ HERE WITH HL -> FENPLATE BYTE 
O1S4 23 793 ING HL 
O135 22745C 774 LO ¢(TADDIR)» HL 
OSS O15001 R795 LO BC, NEXTEM : 
OSB cs TP PLUSH BC ;SET UP ADDR FOR RETURN FROM THE FOLLOWING 
OLSC 4F 7?7 LD CLA 
QOLS0¢ FE2O 798 cP ¢ : ; 
OLSF S00C 729 JR ONC, LNT4 3IF SEPARATOR (PRINTABLE CHARACTER) 
O161 211F02 R 800 LO. HL» TEMACT 3~ START ADDR, CF ACTION TABLE 
O1464 0600 801 LOL B,0 , ; 
O14b6 a? 802 ADG HL,» BC $- FLUS OFFSET IN TABLE 
O167 4E B03 LO Cc, (HL) 
O148 oO? B04 ADL HL, BC 3- PLUS OFFSET FROM TABLE ENTRY 10 ROUTINE 
O169 ES gOS PUSH HL 
QL6A BOG : RET IGN.SP 
O16R O58 807 Cec B $B t= -1 TO SET NZ 
O146C cy S08 RET $GO0 AND DO TEMPLATE ROUTINE, WITH HL —> CURREN! 
BO? 3 CHAR IN TEXT, A = (HL) & NZ. 
310 
O16) S11 UNT4: RST IGNSP SHERE IF REQ SEPARATOR, CODE IN C 
Q16E ED S12 CF C 
OL6F C2A802 ' R 813 JP NZ, SYNERR IF REGO TOKEN NOT PRESENT 
O172 S14 RST NXTLIS 


O173 ce $15 RET SRETURN TO NEXTEM 


SYNTAX CHECKING SYNTAX FAGE 10 


Loc OBJ CODE M STMT SGURCE STATEMENT ASM S.9- 
814 #EJECT 
317 ; 
#13 ENLSTT: sHERE AT ENU OF STATEMENT AT RUN TIME, WITH RETURN ADDRESS 
a1? 3 FROM EXCUTE ON TOP CF STACK. 
0174 CLuc406 R S820 CALL BREAK? 
0177 = 3802 S21 JR C»LET2 SUNLESS BREAK KEY FRESSED 
O179 $22 RST ERROR sERROR L, BREAK PRESSED AT END OF STATEMENT 
OQ17A 14 823 DEFB “L“-“Ar4+9 
$2 
S25 LET2: ;WE NOW DECIDE WHETHER TO JUMP OR CARRY ON. 
S24 SIF (NSFFC) < 0, THEN CARRY UN. 
' _ 827 . SIF (NSPPC) > 0 (A “FRECISE’ JUMP) THEN JWMP To 
828 . ; (NEWPPE) 2 (NSPPC) EXACTLY, & GIVE ERROR N 1F IT DOESN’T 
e297 3 EXIST. 
830 IF (NSPPC) = 0 (A “VAGUE’ JUMP, AS GIVEN BY GO1U, RUN, ETC) 
34 ; THEN JUMP TO BEGINNING CF (NEWPPC) OR 1ST LINE AFTER IT 
: S32 ; IF IT DOESN’T EXIST. 
O17B FOICHOAZE 833 BIT 7. (1Y-Y+NSPPC) 
OQ17F -Cc20502 R |e34 ; JF NZ, ENDTEM $TO CARRY GN 
O182  2A425C $35 LO HL» (NEWPPC) 
O185  CB7C BIG BIT 7H . . 
O187 Zo00A 237 JR NZ,» EXCUTE 3IF RUNNING OUT OF ELLINE, JUMP To EXECUTE. - 
Ole? Bacesc B38 : LD A, (ARSFLG) SRUNNING GUT OF ARCS? 
O1sc CH7F S39 _ BIT 7.A ‘ : 
O1SE cz0000 xX B40 JP NZ»AR_LN sYES, THEN PREFARE TO JUMP TO NEWFPC LINE. ' 
Q191 - 1814 B41 JR LET22 
' 242 EXCUTE: SENTER HERE WITH (NSFFC) = 1, (ERRINR) = ~1 & BIT INTPT OF 
843 3 (FLAGS) SET To EXECUTE COMMAND LINE AT (E LINE). 
0193 @21FEFF 844 LO HL,-2 
O196 22455C 845 LO (PPC)>HL 
O19? = =2A615C B44 LO HL, (WORKSF) 
O1vc 2 S47 DEC HL SHL $—-> SOH AFTER COMMAND LINE 
O19) EDSESe5c 48 LO DE, (E_LINE) 
O1Al 1B 849 - LEC DE 3DE t-> 1 BYE BEFURE COMMAND LINE 
O1A2 = BA44SC S50 LO A, (NSFPC) 
OLAS 1838 $51 JR LET24 
B52 
O1A7  Choooo xX S83 LET22@: CALL FINDLL 
O1AA =3A445C 854 LO Ay (NSFPC) 
OLAD zed S55 JR Z,LET23 sIF (NEWPPC) EXISrs 
OQ1AF = A7 S56 ANL A 
O1RO 2048 S57 JR NZ,ERRN sIF PRECISE JUMP 
O1B2 47 s5e LO BA 
O1HS '7E aso LO A, (HL) 3A == MS BYTE OF LIWE NO. 
O1R4 E6CO 840 AND 11000000B 
O14 §=/8 B51 LD A.B F 
OQ1B7 2817 842 J 2+ LET23 31F SOME STATEMENT FOUND 
OLED 843 RST ERROR sELSE REPORT ©, END OF PROGRAM 
O1BA FF E44 DEFB -1 
: - £45 : 
844 REM: ;TEMPLATE CODE 5 ROUTINE FOR REM. 
S47 SIGNORES REST OF LINE, INCLUDING COLONS. 
O1BH «C1 868 ' POP BC SWASTE RETURN VIA ENDSTT 


O1BC |= 3BAC4E5EC 849 LO A, (ARSFLG) s AROS? . 


v 


SYNTAX CHECKING 


Loc 


OLRF 
O14 


o1c4 
0107 
o1ce 
O1CB 
o1co 
O1CE 
OCF 


o100 
O1D2 
o1n4 
O1ns 
O1nd 
O1D7 
-O108 
o1nc 
o100 
OLDE 
O1nr 
O1EO 
Q1E1 


OL1E2 
O1ES 
OLES 
OLED 
O1EA 
Q1EC 
OLFO 
OLVF A 
O1F4 
O1F7 
O1FS 
OLFB 
O1FD 
OLFE 


OLFF 
O202 
0203 
0204 


SYNTAX . PAGE 11 
CH! CODE M STMT SOURCE STATEMENT ASM 5.9 
CB7F 870 BIT 7,A 
C20000 xX) «S71 JP NZ, AR_NXT 
872 HOP: SIGNORES REST OF LINE. 
873 $1F CHECKING SYNTAX THEN RETURNS STRAIGHT AWAY CFROM SYNTAX]. 
874 sIF RUNNING THEN (NXTLIN) -> LINE NO. OF FOLLOWING LINE. IF 
875 : THIS IS NOT A PRUPER LINE NO. THEN RETURNS CEROM EXCUTE], 
876 ; ELSE MOVES ON TO LINE. 
‘CDOOOO =X 877 CALL INTPT? 
ce 873 RET Z 
20555 879 LO HL, (NXTLIN) 
ZECO aso LD A,11000000B 
AG e831 AND (HL) 
co S82 RET NZ 
AF e393 XOR A 
834 LET23: SHERE WITH HL -> LINE NO. OF DESTINATION LINE, A = SUBLINE NO. 
eos 3 OF SIAIEMENT SOUGHT (CR 0, MEANING 1), 
FEO1 B86 CF 4 , 
CEOO e837 ADC ALO 3A t= 1 IF IT WAS O 
56 ase LOD, (HL) . 
23 eae INC HL 
SE avo LD E, (HL) 
EDS3455C 891 LO (PPC), DE 
23 a92 INC HL 
SE 892 LD E, (HL) 
23 e74 INC HL: 
56 895 LD D, (HL) 
EB , a6 EX OE,HL 
19 297 ADD HL, DE 
23 g99 INC HL 
eo? LET24: sHERE WITH HL —> LINE NO. OF NEXT LINE IN TEXT AFIER 
200 3 DESTINATION, 
s01 : DE -> BYTE BEFORE 1ST STATEMENT IN DESTINATION LINE, 
902 ; A = SUBLINE NO. OF STATEMENT SOUGHT. 
22555C 903 LD (NXTLIN)sHL  $(NXTLIN) '-> LINE NO. OF NEXT LINE 
EB 904 EX DE.HL 
225D5C 905 LO (CHARL), HL $ (CHADD) %-> JUST BEFORE 1ST STATEMENT IN LINE 
57 908 LD DLA sD t= MAX ((NSFPC),1) 
1E00 207 LO E,0 | 
FDS0AFF 908 LO (LY-Y+NSPPC)» 1 
15 209 DEC D 
FL7Z0D 910 LO (TY-Y+SUBPPC),D , 
CAFFOO R #11 JP Z,L84 #FOR SUBLINE 1. 
14 912 Inc Dp 
choo00 =x) 913 CALL SUBLNI 
2308 914 JR Z,ENDTEM sIF STATEMENT FOUND; (CHADD) -> “2° OR NL. 
915 ERRN? RST ERROR | sERROR N. LINE LOST 
14 916 DEFE 9+“N‘-"A‘ 
PAT 
1s END?: SRETURN IMMEDIATELY IF ACTIONINGs ELSE WASTE TWO SIACK ENTRIES 
19 : & CHECK FOR END OF STATEMENT. 
cnoo00 =x: 9z0 CALL INTFT? 
co 921 RET NZ : . 
C1 922 FOP BC sELSE DISCARD RET ADDR FROM END? 
ct 923 POP BC SDASCARD RECURN ADDRESS 10 ENDSTT 


ea a 


« 


e 


SYNTAX CHECKING 


Loc 


OZ1F 
0220 
O221 
O222 
O223 
o224 
O225 
O2246 
O227 
O22 
O229 . 
022A 


022B 
O22E 


O22F 
0230 
O223 


Te 
pi) 


O227 
O233 
eas 

23A 
poo 
O23C 


O23D 


SYNTAX PAGE 12 
UE COLE M STMT SOURCE STATEMENT : ASM 5.9 
924 ENDTEM: SHERE TO CHECK FOR END OF STATEMENT. 
a2 3 (SP) = RETURN ADDRESS FROM SYNTAX GR EXCUTE. 
P26 SAT RUN TIME, (CHAD) -> “2° OR NL & WE WISH TO DISCRIMINAIE 
927 : BETWEEN THEM. 
923 RST IGN SP 3CHECK FOR END OF STATEMENT ; : 
FEOD 929 CP NL 
2001 930 JR NZ,» ENTL IF NOT NEWLINE, CHECK FOR “:’. 
ZASSSC W314 LO HL» (NXTLIN) 
ZACO5C 932 LD A. (ARSFLG)  sAROS PRESENT? 
CB7F 923 BIT 72A 
C20000 934 JP NZ» AR_LNXT sYES, SO GET THE NEX1 ARGS LINE. 
1¢AD 935 JR HOP s$NO, SC GET. THE NEXT PROG. . INE. 
FEA ‘936 ENTit CP ¢:¢ 
CAFFOO 937 UP Z,LS4 31F ANOTHER STATEMENT UN LINE ; 
CBAz02 933 LE?2: JP SYNERR - 6 
929 
940 TEMACT: STABLE OF TEMPLATE EVALUATION ROUTINES 
941 ; $THE ROUTINES ARE ENTERED WITH (s SP) = NEXTEM, 
942 3 (SP+Z) = ENUSTT, 
943 ; (SP+4) = RETURN FROM SYNTAX GOR EXCUTE, 
. 944 ; (T-ADDR) -> NEXT BYTE IN TEMPLATE, 
945 ; (CHADD) -> 1ST CHAR IN SOURCE fO BE MATCHED AGAINST 
946 ; TEMPLATE BYTE. 
947 ; TEMPLATE CODE: — 
OF 943 DEFB TEMO-% 3 0 - ENU. ADDR OF RUN-TIME SEMANTIC ROUTINE FOLLOWS 
10 949 DEFR TEMI-% 3 1 -— DESTINATIUN 
4B ; 250 DEFB TEM2-% 3 2 - EXPRESSION, TYPE AS PREV DEST’N, Al END OF LET 
09 951 DEFB TEN3-$ 3 3 - NUMERICAL EXPRN GR END OF LINE, HEN AS O 
47 952 DEFB TEM4—-% 34 - LETTER (FOLL’G SPACES NOT SKIPPED) 
OB - 953 DEFBR fEMS-% 3 5 - SPECIAL ACTION (ADDR UF ROUTINE FOLLOWS) 
74 954 DEFER TEM6—$ + & — NUMERICAL EXPRN 
SE 955 DEFB 1EN7-% $7 - ATTRIBUTE CONTRUL STATEMENT 
71 956 DEFB TEMS-% 3 8 - NO.LEXPRN . NO.EXPRN 
BC 957 DEFB TEN?-$ 3 9 - C CULGUR-ITEM.£C » \ 3 7 7# NO.LEXPRN , NO.EXPRN 
81 958 DEFB TEM1O-—% $10 -— STRING EXPRESSION 
U7 g59 DEFB TEM11-% $11 — SAVE/LOAD/VERIFY/MERGE 
940 
941 TEM: OPTIONAL NUMERICAL EXPRESSION, THEN AS CODE oO 
cn0403 YE CALL OPTNO 
BF $63 TEMO: CP A SET Z 
964 TEMS: sJUMP TO. " ROUTINE! ADDRESS FOLLOWS (ENTER TEMS WITH NZ) 
C1 965 POP BC. SDISCARD RET ADDR OQ NEXTEM . : 
CCFFOL 966 CALL Z,ENU? 31F CODE O OR 3 
EB : IG7 EX DE,HL 
2A745C 943 LD HL» (T_ADDR) 
4E VE9 LOC, (HL) 
23 970 INC HL 
46 971 LOB, (HL) bat ; 
EB 972 EX DEsHL : 
cs 973 PUSH HC SENTER ROUTINE WITH RESULT ON CALCULAIGR STACK; . 
co 974 RET 3 CARRY CLEAR (7). HL=(CH_ADD), A = (HL) : 
975 ‘ 
976 TEMLE ; DESTINATION 
Tay areyeraye) 977 CALL FIND_N 


. 


« 
© 


Py 


SYNTAX 
Loc 


0240 
O244 
0246 
OZ4A 
o24c 
o24n 


O24b 
O231 
Of3S 
O28 
O25 
O25B 
O2ZSE 
a2z41 
0262 
0263 
0264 
0243 - 
O246B 


0260 
O24D 
0270 
0273 


O274 
O277 
O278 


' 0278 


.027C 
O27F 
ozs 
O282 
O234 
0286 
Ooze? 


OZ8A 
O28 

O2SE 
O2SF 
O291 
O292 
0294 
0295 


CHECKING 
ORI CODE M STMT 
FD243700 973 
3008 979 
FOCBS7CE 90 
2018 91 
a2 
OL 9E3 
934 
crcooen X 98S 
FLICHO1L7& Va 
200D 927 
AF GES 
CnoO000 X 89 
C40000 X P90 
21715C OF1 
B4 D9 
77 oR 
EB’ DI4 
Eu43725C IFS 
22408C P96 
Cc? S27 
998 
E22 
C1 1000 
CD7402 R 1001 
COFFOL R 1002 
cy 1003 
' 1004 
1005 
1004 
SA3B5C 1007 
FS 1008 
cnoaeo xX 1009 © 
Fil 1010 
_ FNE6OL 1011 
AA 1012 
E440 1013 
2024 1014 
CBR7A 1015 
C20000 X 1014 
cy 1017 
1018 
1019 
1020 
1021 
CoO000 X 1022 
FS 1023 
7? 1024 
Farr 1025 
3c 1024 
2014 1027 
Fl 1028 
1SA? 1029 
1030 
1031 


SYNTAX FAGE 13 
SOURCE STATEMENT ASM 5.9 
LT1i: LD (1Y-Y+FLAGX).0 
- UR NCGOLTI2 SIF FOUND OR CHECKING SYNTAX 
SET UNFND, (IY+FLAGX-Y) 
JR NZ LTI6 31F NOT ARRAY 
ERR2: RST ERROR sERROR 2, VARIABLE NOT FOUND 
DEFB 1 
LTi2: CALL Z,GkY_EL $sIF ARRAY 
BIT NG. (LY-Y+FLAGS) 
JR NZ»LTI6 31F NUMBER 
xor A 3TO LEAVE (FLAGX) UNCHANGED IF CHECKING SYNTAX 
CALL INTPT? ; , 
CALL NZ,FOPSIR $sIF RUNNING 
LO HL,»FLAGX 
OR (HL) i 
LD (HL),A 
EX DE,HL 
LT16: LO (STRLEN)» BC 
LO (DEST).HL ‘ 
RET £ 
TEM2: sEXPRESSION, SAME TYPE AS (DEST), THEN ACTION LE! 
FOP BC sDISCARD RET ADUR TO NEXTEM 
CALL TEM2X . 
CALL END? . ‘ 
RET 3TQ ENDSIT, IF RUNNING 
TEM2X: +PROCESS-EXPRESSION AT (CHADD), CHECK THAT ITS TYPE MATCHES 
3 BIT NO OF (FLAGS), & CALL LET IF RUNNING. : 
LO A, (FLAGS) | . a ; = 
LT22: PUSH AF sENTER HERE WITH REQ’D TYPE IN BI? NO. OF A 
CALL EXFRN a, tt ‘ 
FOP AF 
LD DB, (LY-Y+FLAGS) ; 
xorR Oo s$CHECK TYPE 
AND 1.SHL.NG : 
JR NZ» SYNERR 3IF WRONG TYPE 
BIT INTPT.o 
JFONZ2LET IF REQ DC ASSIGNMENT 
RET 
TEM4: _} LETTER Saat 
3 GN RETURN AT RUN-TIME, THE LETTER IS IN (STRLEN) WITH BIT 6 
4 3 SET. 
CALL FINDLN 
FUSH AF : 
LD A.C 
OR YFH 
INC A : 
JR NZ» SYNERR s$IF NOT A SINGLE CHARACTER IDENTIFIER 
PUP AF 
JR LT11 
DYADIC: IPROCESSES 2 NUMERICAL EXPRESSIUNS SEPARAIEU BY A COMMA. 


© 
« 


SYNTAX CHECKING 


Lc 


0297 


O293 
O27B 
O29D 
O29F 


O2ZA0 
O2A3 
O2A7 
O2ZAR 
O2A? 


O2AA 
O2AD 
O2ZB1 


QZE2 © 


O2ZB4 
O2BS 
O2BC 
O2BF 
OzCO 


0203 
02°06 
o2c9 
O2CA 
o2cc 


o2co 
o200 
O203 
o2Z03 
O2D4 
o2ny 
o2DC 
o200 
O2DE 
O2DF 
QZE1 
_ OZE2 
OZES 


OBJ CODE 


COAO02 
FE2C 
2009 


cpnoe000 
FOCHO17S 
co 


OB 


CHOON 
FDCBO1L76 
cs 

19F4 


FOCEO’ 7E 
FOC BOZES 
c4o000 
Fi ‘ 
3A745C 


2A745C 
11CFFF 


CoOOON 
COFFOL 


ZASFSC 
228D35C 
21915C 
7E 


M 


STMT 


1032 
1033 
1034 
10235 
1034 
1037 
1036 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1044 
1047 
1043 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1054 
1057 
1053 
1059 
1040 
1061 
1042 
1043 
1044 
1065 
1064 
1047 
1068 
1049 
1070 
1071 
1072 
1073 
1074 
1075 
1074 
1077 
1078 
1079 
1030 
1081 
1082 
1033 
1084 


AOSS 


SYNTAX : PAGE 14 


TEM2: 


TEM4: 


SYNERR® 


TEM10: 


TEM73s 


TEM: 


SOURCE STATEMENT ASM. 5.9 


SENIERS WITH (CHADD) -> JUST BEFORE 1ST EXPRN, RETURNS WITH 
(CHADD) -> TERMINATOR OF 2ND. 
RST NXT_IS | 
sLIKE DYAVIC, BUT ENTER WITH (CH_ADD) —-> START OF 181 EXPRN 
CALL FEMS 
cP ¢./ 
JR_NZ,SYNERR 
RST NXT_IS 
+ NUMERICAL EXPRESSION. READS IN EXPN & FLAGS SYNTAX ERROR 
3 IF A STRING. IF OK, HL = (CH_ADI) -> lERMINATOR = A. 
CALL EXPRN 
BIT NO, (IY+KLAGS-Y) a 
RET NZ 
RST ERROR sERROR C, SYNTAX ERROR AT RUN TIME 
UEFB 11 


SLIKE TEMG, BUT WANTS STRING EXPRESSION. 
CALL, EXPRN 
BIT NO, (IY-Y+FLAGS) 
RET Z 
JR SYNERR 


SCOLOUR (ETC) STATEMENT. 
BIT INIKPT, (1Y-Y+FLAGS) 
RES LHS, (1Y-Y+TVFLAG) — 
CALL NZ»RUATTS 
FOP AF sWASTE RETURN TO NEXTEM 
LD A,(T_ADDR)  . 
+ ##ADDITIONAL 
LD HL» (TUADDR) 
LO DE, TEMP44~—FG10K+1 
AND A 
SBC,HL, DE 
LO AL 7=4+09 FOR INK ETC. 
5 RE 


CALL COLITM 
CALL ENE? 

ASSERT (MASK_PSATTR_P+1). AND. (MASK -T=ATTR_T+1) 
LO HL» (ATTR_T) 

LD (ATTROP) + HL 

LO HL»P_FLAG 

LO Ay (HL) at 
RLCA 

XOR (HL) 

AND 101010108 

XOR (HL) 

LO (HL).A 

RET 


ere 2 tel reo nad EC betb wea 


é i 1 sed 
$C COLOUR-ITEM C. \ 5 7 7® NO, EXPRN ? “NO. EXPRN 

$1F RUNNING, INITIALIZES fEMPORARY COL:GQUR PARAMETERS Ta" 

3 FOREGROUND := PERMANENT FOREGROUND (FOSSIBLY COLGUR 9), 
3 EVERYTHING ELSE &*= TRANSPARENT (COLOUR &). .,, ‘ 


SYNTAX CHECKING 


Loc: 


OZE4 
O2ZE7 
OZED 
OSED- 
O2FO 
O2FS 
O2F 4 
OZFS 
O2F7 
OZEH 
O2FC. 
Q2FF 


O301 


0204 
0304 
OBO 
OZS0A 


o30c 
O30F 
o310 
O311 
O312 
0713 


SYNTAX . PAGE 15 


UBS CODE M SIMT SQURCE STATEMENT ASM 3.9 


1034 
CHOO0O =X _1087 
2813 10388 
FICBO28$ = 1087 
ChOQ0G = X_-1090 


21905C 1071 

7E 1092 

F4FS 1093 

77 1054 

FOCBS/B6 1095 

1094, 

CLOQ0O = -X_—«:11097 

1897 10%8 

1099 

1100 

C30000 =X «1101 

1102 

1103 

1104 

1105 

1106 

FEon 1107 

2804 1108 

FESA 1109 

2094 1110 

1111 

; 1112 

CLOOOO =X 1113 

ce . 2tn4 

1115 

Ao 1116 
38 1117 | 

co 1118 


LT945 


TEMI1: 


OPTNO: 


STK_O# 


SINVERSE VIDEO & OVERPRINTING SET TO CURRENT PERMANENT FLAGS. 
CALL INTPT? 
JK Z,LT?4 
RES LHS, (1Y-Y+TVFLAG) 
CALL RLATTS 
LO HL»MASK_T 
LD A, (HL). 
OR .NOT. (7.SHL.FOREG) 
LD (HL),A 
RES BOCF, (1Y-Y+P_FLAG) 
RST IGN SF 
CALL GROCOL 
JR TEMS 


+DEALS WITH SAVE, LOAD, VERIFY OR MERGE STATEMENT 
JP NEWDEV 


FOPTICNAL NUMERICAL EXPRESSION. 
¢IF CURRENT CHAR. (IN A) NEITHER) NL NOR “2° THEN AS TEM6$ 
3 ELSE, IF RUNNING, PUIS 0 ON CALCULATOR STACK. 
SSMASHES B°C’D“E’. : 

cP NL 

JR Z,STK_O 

CP “8¢ 

WR NZ,TEMS ‘ 
IF RUNNING, PUTS 0 GN CALCULATOR STACK. 
SSMASHES B°C’D’E’, 

CALL LNTFT? . 

RET Z 31IF CHECKING SYNTAX 

RST CALCIR 

. DEFB CONST+O 
DEFB QUIT 
RET 


. 


SYNTAX CHECKING 


Loc 


0314 


O315 


O31 


OB17 - 


Q314 
O310 
o310 
OF1E 
_OF1F 
0320 
OB23 
O325 
O323 
Q32A 
O320 
O330 


SCooocos 


QO tM om 
G3 00 to ta te oo 


O240 
0243 
0344 
o34S 


O3446 
| 247 
0342 
0349 
O34A 
O34B 


Moc N of ig 


a3 


C1 
CHAO 


SACGESC 
CE/F 

Cc20000 
csc4ol 
C30001 


FECD 
2007 
CoAQd2 
COFFOL 
1206. 
COFFOL 


Al 
33 


Bax 


1119 
1120 
1121 
1122 
1123 
1124 
1 125 
1126 
1127 
1125 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1144 
1147 
1143 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1154 
1157 
1123 
1159 
1140 
1141 
1142 
1143 
1144 
1145 
1144 
1147 
1148 
114° 
1170 
1171 
1172 


SYNTAX 
OBJ CODE M STMT SOURCE STATEMENT 


*EJECT 


we 


STIME (TEMPLATE Cones 


Qa & 


FAGE 16 
ASM 3.9 


;DEALT WITH SY THE fEMPLATE FITTING, & A = 


3 ON THE STACK ARE ENDST1 


(HL). 


THE ROWIINES THAT FOLLOW ARE GENERALLY THE ACTIONS TO KE TAKEN Al RUN 
3) ALTHOUGH THEY CAN ALSO INCLUDE 
3(TEMPLATE CODE 5). THEY ARE ENTEREL! WITH HL = (CHADD) -> AFTER THE STUFF 


(ON TOF) & THE RETURN FROM SYNTAX OR EXCUTE. 


(HE SYNIAX CHECKING 


sENDSTT (5 ONLY PASSED THRUUGH AT RUN TIME, SO FUR SYNTAX CHECK IT MUST BE LOST 
s (USUALLY BY END?). 


3 (PPC), 


(SUBFPC) = LINE & 


SUBLINE NOS 


(NXTLIN) -> MS BYTE OF NO. OF NEXT LINE (OR A BYTE WHOSE VALUE HAS ONE OF 


3 
sBITS 6 & 7 SET. SO THAT IT CANNOT BE THE MS BYTE 
5 (TEMADD) -> 1 BYTE AFTER THE TEMPLATE. 


STOPs 


COND: 


LCONS: 


FOR: 


LFOR1s 


LFORIS: 


+ STOP: 
RST ERROR 
DEFE 


INTER 
3 CALL 


RUET PROGRAM 


ERROR 9, StOP EXECUTED. 


3 ACTION AFTER THEN IN IF STMT , 
SWASTE RETURN VIA ENDSTT 


POP BC 

CALL INTPT? 
AIR Z,LCONS 
RST CALCTR 
DEFR LOSE 
DEFB QUIT 

EX DE.HL 
CALL TESTO 
JR NC, LCONS 
LD A» (ARSFLG) 
BIT 7,A 

JP NZ: AR_NXT 
JP HOP 

JP LSS 


sIF CHECKING SYNTAX 


sHL &8— 


3 AROS? 


sYES, 
3NO, D 


> CONDITION 


“F A LINE NOG.) 


THEN DEAL WITH IT ACCORDINGLY. 


ITTO. 


§ ELSE FROCESS STMT FOLLOWING “THEN’ 


3 HERE AFTER 10 


CP STEP 

AR NZ, LFOR1 
RST NXT_LIS 
CALL TEMS 
CALL END? 
JR LFORLS 


CALL END? 
RST CALCTR 
DEFB CONST+1 
DEFB QUIT 


sIF NO’ 


STEP PART 


$1 = DEFALILT STEP 


sHERE 


IF RUNNING. HAVE STEP ON TOF OF CALCTR STACK, 


$s THEN INITIAL VALLE. 


RST CALCTR 
DEFB COPY+0 
DEFB LOSE 
DEFE EXCH 
DEFE MEMORY+0 
DEFB EXCH 


sINIT. 


VAL. ON TOP, 


THEN STEP, 


THEN LIMIT. 


THEN LIMIT, 


SYNIAX CHECKING SYNTAX - PAGE 17 


Loc =6OB! CODE M STMT SGURCE STATEMENT ASM 5.9 
o240 «38 1173 DEFB GUIT 
cnooad x 1174 ' CALL LET : 
226850 1175 Lo (MEM), HL 
353 26 1174 DEC HL 
OBE4 7E : 1177 LO A, (HL) 
o355 CHE 1178 SET 7, CHL) 3; ENSURE NUMBER CCINVERTED 
0257 010600 1179 LD BC,NOSIZE+1 3 ANU ALIGN GON BYTE AFTER VALUE 
OR5Aa OF 1160 AnD HL, BC 
O35 07 1181 RLCA 
O20 3e06 1182 JR Co LEOR2 3; IF ALREADY A FOR BLOCK 
O3SE  OEOL 1183 . LD C. 2#nosrZE+3 $BC 8= 2eNOSIZE+S 
0360 ChOQOO Xx 1124 CALL INSERT sBC t= 0 
0363 23 1185 INC HL 
0344 ES 1186 LFOR2: FUSH HL 
02465 1187 RST CALCTR 
0364 02 1183 DEFB LOSE 
02467 02 118 DEFER LOSE 
O368 38 1170 DEFER GUIT 
C369 El 1iv1 POP HL 
O2¢6Q EB. 1192 EX DE,HL 
O24H OEOA 1193 _ LD C,2#NOSIZE sBC t= 2enNOSIZE 
O24D EOBO 1194 LOIR SASSIGN NEW STEP & LIMIT 
O26F 2A455C 1175 LD HL. (FRC) 
O372 ER: 1194 EX DE,HL 
0373 «78 1197 LD (HL).E 
0274 23 1198 INC HL 
O275 72 : 1199 LU (HL)»D 
0376 FDOSSOD 1200 LO G, (1Y-Y+SUBPPC) 
0379 «14 1201 Inc oD. . 
037A = 1202 INC HL 
O37B . 72 1203 LO (HL) D 
0270 COSFO4 R 1204 CALL NXTCHK 
' O827F nO 1205 RET NC 31F LIMIT NOT EXCEEDED 
1206 sHERE TO FIND CORRESPONDING NEXT 
O20  2A455C 1207 LD HL» (PPC) 
OF 224250 1208 LD (NEWFPPC). HL 
SA4750 120% LO A, (SUBFPC) 
ED44 1210 NEG 
57 i211 LD DA 
ZARLSC 1212 LO HL, (SYSCON) ARCS? 
23 1213 INC HL 
JE 1214 LOD A» CHL) 
O271. FEO2 1215 cP og 
Oo373 2018 1214 JR NZ, LFOR3A 
23 1217 INC HL 
23 1218 INC HL - 
rac) 121? INC HL 
‘ 7E 1220 LD A» CHL) 
O27 EOF 1271 AND OFH 
O39B  4aF 1222 LO CA 
o270 a600. . 1223 LO. BLOG - 
O27E = CII964 1224 _ CALL BANK_ENABLE 


OBAL ED4B4S5C 1225 LU BC, (PFC) SFIND SIARVING PLACE FUR SEARCH. 
O3AS COqdO00 § xX 1224 CALL GETAL "ty 


~ 


,e 


SYNTAX CHECKING 


Lac 


O3AB8 
OBA 
OBAA 
OSA 
O3AD 
C380 
O3H2 
O3B4 
OSB? 
O2BD 
Osco 
oac2 
O303 
o3cs 
O36 
O3C8 
OBC? 


O3CB 


osce | 


OSCE 
O3CF 
OsD2 
oOsDS 
OSD 
OSD 
OSTA 
OsnD 
O3EO 


O3E1 
OSE2 


O3E3 
OSE4 
OSES 
- OSES 
OSEY 
OSEA 
O3EC 
OSED 
O2EE 
OSEF 


OBJ COKE M 


1802 
ZASUSC 
1EF3 
ED4BS55C 
CDES03 R 
ED43555C 
FDN4633 


SEO1 
92 
32445C 
21065C 
éE 
CB70 
2508 
O1LOOFF 
CD9964 
cy? 


11 


SYNTAX PAGE 19 

STMT SOURCE STATEMENT ASM 'S.9 
1227 LD HB 
1228 LD Lc 
1229 DE HL 

230 JR LFORSE 
1231 LFOR3A: LO HL, (CHADD) 
1232  LFORSB: LO E,NEXTOK 
1233 LFOR3! LD BC, (NXTLIN) 
1224 CALL SKIP 

235 LD (NXTLIN)» BC 
1236 LD By (1Y-Y+STRLEN) 3B = NANE UF FOR VARIABLE. 
1237 JR C,ERRI sIF NO NEXT FOUND 
1238 RST NXT_IS ‘ 
1239 oR 20H SCONVERT TO LOWER CASE 
1240 cP B 
1241 JR Z,LFORS sIF NEXT B FOUND 
1242 RST NXT_IS 
1243 JK LFORS 
1244 
1245 LFORS! RST NXT_IS 
1244 LD At 
1247 SUB D 
1248 LD (NSPPC),A 
1249 LD HL, ARSFLG AROS? 
ae LD L, (HL) 
125 BIT 7oL 
1252 JR Z,LFOR3C 3NO, JUMP. 

253 LD BC,OFFOOH ENABLE HOME BANK AGAIN. 
i2s4 CALL .BANK_ENABLE 
1255 LFOR3C: RET 

256 
1257 ERRI: RST ERROR sERROK I, FOR WITH NO NEXT 
1258 DEFB 17 
1259 

1260 SKIP sSKIP TQ E-STATEMENT AFTER (HL) 
1241 $HL -> STATEMENT TERMINATUR (ANYTHING OTHER THAN “2% COUNTS AS. 
1262 s NL)» 
12463 3D = -SUBLINE NO. OF STATEMENT TERMINATED AT (HL) 
1244 $E = TUKEN OF KEYWORD SOUGHT 
1265 3(CH_ALI) &= HL t+> KEYWORD OF 1ST E-STATEMENT AFTER 
1266 $IF PASSES THROUGH BEGINNING UF LINE, HEN (NEWPPC) ?= LINE NO. 
12467 +  & BC :-> NEXT LINEs ELSE PRESERVES BC. 
1248 . iD '= -SUBLINE NO. OF E-STATEMENT . 
1269 ; sRETURNS C IF NO E-STATEMENT FOUND 
1270 a sPRESERVES E 
1271 LO Ay (HL) 
1272 cp ver. 
1273 JR Z,LSP3 sUNLESS AT BEGINNING OF LINE 
1274 LSPZ! INC HL ; 
1275 LD A» (HL) 
1276 AND OCOH 
1277 SCF 
1278 RET NZ SIF NO E-STATEMENT FOUND 
1279 LD ALE #SEARCHING FOR DATA, STATEMENT? 
1280 CP OE4H 


» 


SYNTAX CHECKING 


Lac 


OSF 1 
WSF 3 


(YSF6 
OS 7 
OSFS 
OSF? 
OFEo 
OSFE 
OSFF 
0400 
O404- 
0402 
0403 
O404 
0405 
0406 
0408 
0409 
0400 
0400 
O40E 


0410 
0414 
0417 
O41A 
041c 
O41e 
O41F 
O4Z2 
0423 
0424 
O42 


0426 ° 


0427 
O423 
O429 
o420 
o420 
0430 
0433 
O434 
0435 
0436 
04:37 
0435 
0429 
043A 


O43 
O4SE 


SYNTAX 
OBJ CODE M STMT SOURCE STATEMENT 


FABE 19 
ASM 3.9? 


2003 1281 JR NZ+LSP2A #NO, THEN CONTINUE. 
220750 1282 LD (ADATLN)» HL $YES, THEN NOTE THE POTENTIALLY NEW CURRENTS DATA LINE. 
1232 SONLY IMPORTANT WHEN DEALING WITH AROS, 
46 1284 LSP2A: LOD (HL) 
23 128 INC HL 
4 1284 LOC, (HL) : 
EU43425C = 1287. LD (NEWPPC),BC $(NEWPPC) t= NO. OF LINE BEING LOOKED 
23 1288 INC HL 
4E 1289 LE Cy (HL) : 
23 1290 INC HL 
46 1294 LU By (HL) 
ES 1292 PUSH HL 
og 1293 ADD HL. BC 
44 1294 LD B»H 
40 1295 LO CL 
El 1294 POP HL 
1400 297 LD B20 
cS 1298 LSPS: - PUSH BC 
cpo00o = X«1299 CALL SUBLN1 
C1 1300 | POP BC y 
- Tro 1301 RET NC 
LED 202 JR LSP2 
1303 
304 NEXT: #PROCESS NEXT STATEMENT 
FDCES74E 1305 BIT UNFND, (1Y-Y+FLAGX) 
C2402 R 1306 JP NZ, ERR2 <1F NOT FOUND 
2A405C: 1307 LO HL, (DEST) 
CB7E 1208 BIT 7, (HL) 
281F 1309 JR Z,ERR1 + IF NOT CONTRUL VARIABLE OF FOR LowP 
23 | 1210 INC HL + ELSE HL ?-> VALUE 
22685C 1311 - LD (MEM). HL 
1212 RST CALCTR 
EO 1313 DEFB MEMORY+0 VALUE 
E2 1314 DEFB MEMORY+2 STEP 
OF 1315 DEKE ALD 
co 1314 DEFE COPY+O ‘FOR VARIABLE INCREMENTED 
02 1317 DEFE LOSE 
38 1318 DEFB QUIT 
CO3FO4 = R 1319 CALL NXTCHK 
ne 1320 RET C sIF LIMIT EXCEEDED 
2AG8SC 1821 LO HL» (MEM) 
110F00 1322 LD DE, 34NOSIZE 
19 132% AID HL, DE sHL §~> LINE # FUR LOOPING 
SE 1324 LOE, (HL) 
23 132 INC HL 
56 1326 LD Dh (HL) 
23 1327 INC HL | 
bb 1228 LOH (HL) : 
EB 1229 EX DE. HL 
C3B805 = R 1330 JP LUP4 
1331 
1332 ERRIt RST ERKOR ;CALL ERROR 1, VARIABLE NOI FOR VARIABLE. 
oo 1333 LEFB 0 
1234 


. 


SYNTAX CHECKING 


Lo: 


O43F 
0440 
0441 
0442 
0443 
0444 
0445 
O44s 
O447 
044s 
0449 
0444 
044B 
044C 
0440 


O44E - 


O44F 
o4so 


O451 


452 
O485 
0452 
0458 
O45C 
O45F 
0462 
0463 


' 0465 


0468 
O46B 
O46E 
O46F 
0470 
0472 
0474 
0475 
0478 


0478 , 


O47¢ 
O47E 


0430 


o4e2 


o4s5 
0487 
043A 
0480 
0490 


0473. 


UB COLE M STMT 


EO 


00 


37 
OO - 
O4 


E7 


COs0oO2 
cha0dd 
CA3303' 
DF 
225F 50 
210650 
4E 
CB7D 
CAQDOS 


. ZABCSC 


110400 
19 

7E 
ESOF 
O400 
AF 
ChIF64 


1EE4 
COESO3 
300% 
OLO0OFF 


COY964 


C3100 
22575C 


2AC7SC — 


axa 


mi) 


1343 
1249 
135 

1351 
1352 
1353 
1354 
1355 
1354 
1257 
1353 
1359 
1340 
1341 
1362 
1343 
13464 


SYNTAX 
SOURCE STATEMENT 


NXTCHK? 


LNK2: 


LNK3: 


NEXTRD: 
READ: 


1365 


1344 
1347 
1343 
1349 
1370 
1371 


1372. 


1373 
1374 
1375 
1376 


ia 


a 
Wi Wht a ol We 
Th oo 0 oo oo OG oO 
ONS OB 


ARGSRB: 


NWAPTR: 
APTROK: 


30N ENTRY (MEM) 
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“> 1ST BYTE OF VALUE OF FOR VARIABLE. 


3 RETURNS C IF LIMIT EXCEEDED, NC 1F NOT. 


RST CALCTR 
DEFB MEMORY+1 
DEFE MEMORY+0 
DEFB MEMORY+2 
DEFB MINUS? 
DEFB IFJUMP 
GEFB LNKZ-$ 
DEFB EXCH 
DEFB SUB 

DEFB PLUS? 
DEFB IFJUMP 
DEFB LNK3-$ 
DEFB QUIT 

AND A 

RET 


3STEP 


DEFER QUIT 
SCF 


RET 


RST NXTWIS 


CALL TEM1 
CALL INTPT? 
JP Z,MORE? 
RST IGN_SP 
LD (X_PTR)+HL 
LD HL, ARSFLG 
LD Ls (HL) 
BIT 7b 
JP Z,PROGRD 
LD HL, (SYSCON) 
LD DE,0004 
ALD HL, DE 
LO A, (HL) 
ANL OFH 
LO 8.0 ° 
LO c.A 
CALL BANK_ENABLE 
Lu HL, (DATADD) 
LD A, (HL) 


Z, APTROK 


LD E.DATATK 

CALL SKIP 

JR NO,NWAPTR 

LO &C, OF FOOH 

CALL BANK_ENABLE 

JP ouTOD 
LO (DATADD), HL 
LD HL, (ADAILN) 


sLIMIT 
3 VALUE 


sIF StEP < 0 


sIF LIMIT EXCEEDED — 


sALIGN CHALLE ON THE CHARACTER AFTER 
3 TOKEN. ~ 
$GET LESTINATION VARIABLE. . 
3 INTERPRETING? 
SNO, THEN DUN’T ACTUALLY READ THE DATA. 
sGET CURRENT CHADD INIGQ HL. 
SSAVE IT TEMPORARILLY IN X_PTR. 
SARE WE GOING TO READ THE DATA GUT OF AROS 
3 OR PROG? . 


;JUMP TO READ DATA OUT OF PROG. 
*BANK SWITCH ARCS CHUNKS, IN. 


3 
sONLY CHUNKS 4-7 MAY BE A PART OF AROS. 


700 If. 

SRESTORE AROS DATA POINTER. 

sGET WHAT IT POINIS Ta. 

$15 IT A COMMA? : 

sYES, NEXT GATA EXFRESSION IS ALREAQY FOUND 

3 THEN. 

3NQ, fHEN SEARCH AROS FUR THE NEXT DATA TUREN. 


sDATA STATEMENT FOUND SO JUMP. 
SENABLE HOME ROM AND RAM, 


7 

SANNOUNCE GUT OF DATA ERROR, 
SUPDATE THE AROS DAIA POINTER. 
3GET THE STARTING ADDRESS FOR 


THE READ 


YHE CURRENT AROS 


2 
° 


te 


SYNTAX CHECKING 


Loc ORI CONE M 


O496 23 
O497 23 
O4Fs 4E 
Odeo 23 
O47A 4G 


0498 Ev4sc9sec 
O4vF OLOOFF 
O4A2 CD9964 
OFAS ER4BC ISC 
O4A? ZA4F SC 


O4AC ES 
O4AD 2B 
O4AE ChOOdO 
O4B1 01 
O4BeZ 21FFOO 
O4BS ES 
O4K6 Z2AC7SC 
O4B9 23 
O4BA 23 
OFBR = 23 
O4BC 23 
O4B0. ES 
O4BE ous 
O4RF EQ4BC9SC 
O403 cs 
O4C4 10100: 
O407 ts 


O48 CD2267 


O4CB 2AC75C 
O4CE EDSBCYSC 


o4nz 19 
O40 110400 
O4ns 19 

0407  En4BS75C 
O408  A7 

o4uc = ED42 
O4DE = 44 

O40F 4D 

O4EO 2A4FSC 
O4E3 AT 

O464 Ef42 
O4E6 ES 

O4E7 23 


O4ES 225D5C 
O4EB CO7402 


“O4EE ft 
O4EF Z2ASDSC 


O4F2 a7 


X 


SYNTAX 


STMT SQURCE STATEMENT 


aa? 


13 Od i Gd 


1 


12392 
1299 
1400 


1401 


1402 
1403 
1404 
14035 
1404 
1407 
1403 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1414 
1417 
1413 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1424 
1427 
1422 
1429 
1430 
14231 
1432 
14:33 
1434 
1435 
1424 
14°37 
1438 
1439 
1440 
1441 
1442 


INC HL 

INC HL 

LO C, (CHL) 

INC HL 

LO By (HL) 

LD (OTLNLN). BC 
LD BC,OFFOOH 
CALL BANK ENABLE 
LO BC, (DTLNLN) 
LO! HL» (CHANS. >) 
PUSH HL 

BEC HL 

CALL INSERT 
FOP DE 


LO HL,QOFFH 


PUSH HL 


LD HL,» (ADATLN) 
INC HL 
INC HL 
INC HL 
ING HL 
PUSH HL 
PUSH DE 
LO BC, (0TLNLN) 
PUSH BC 


“LO BC, OOO! 


PUSH BIC 


CALL XFER BYTES 


LO HL, (ADATLN) 
LO DE, (DILNLN) 


ADO HL, DE 


LO DE,Q004 

ADD HL, DE 

LO BC, (DATADD) 
AND A 

SBC HL. BC 

LO BH 

LD Cot 

LO HL. (CHANS_) 
AND A. 

Sec HL.»BC 
PUSH’ HL 


INC HL 
LO (CHADD) » HL 
CALL TENZX 

POP DE 

LD HL, (CHADD) 


AND A 
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5 DATA LINE TO GET IT’S LENGTH. 


SSAVE LENGTH OF CURRENT DATA LINE. 
SENABLE THE HUME ROM AND RAM. 


sRESIORE LENGTH OF CURRENT DATA LIME. 
SMAKE ROCM FOR THE CURRENT LATA LINE AT 
3 THE END OF THE AROS BUFFER. 


SRESTORE THE POINTER TO WHERE THE CURRENT 
3 DATA LINE IS TO GO WITHIN THE ARCS BUFFER. 
SMOVE THE CURRENT DATA LINE FROM AROS 
$s (0 = BANK 0) TO AROS BUFFER (E = BANK FF). 
sNOTE SQURCE ADDRESS OF CURRENT DATA LIWE. 


;NOTE DESTINATION ALWRESS WITHIN AKOS BUFFER. 


SNOTE THE NUMBER UF BYTES IN (HE CURRENT DATA 


§ LINE TO BE MOVED, : 

sNOTE THAT BYTES ARE TO BE MOVED IN ASCENDING 
5 ORDER. ; 
SMOVE THE CURRENT DATA LINE FROM AROS f0 THE 

; ENU OF THE AROS BUFFER. 

sGET POINTER TO CURRENT DATA LINE. 

SGET THE LENGTH OF THE CURRENT VATA LINE. 

SAND THUS A POINTER TO THE END GF THE LINE. 

sDON’T FORGET THE LINE NUMBER ANU LENGTH 

s AT THE START OF THE LINE. 

sFIND THE DISTANCE BETWEEN THE ARUS DATA 

§ POINIER AND THE FOLLOWING LINE TO 

§ DETERMINE THE DISTANCE BEIWEEN THE NEW 

§ CURRENT CHARACTER FOINTER AND CHANS. 


SSAVE DISTANCE BETWEEN START OF CURRENT DATA 
SION AND END UF LINE. , 


3SET CURRENT CHARACTER POINIER TO POINT TO 
3 CURRENT DATA EXPRESSIUN FOR EXPRESSION 

3 EVALUATOR. 

SRESTORE FOINTER TG START OF EXPRESSION IN 
5 ARGS BUFFER. ‘ 
sGEl POINTER 10 END OF DATA EXPRESSION IN 
3 ARGS BUFFER. 


- 


SYNTAX CHECKING 


Loc UBS CODE M 
O4F3 EDS2 
(O4F5 EVSBS7SC 
O49 19 


O4FA 229750 


O4FD ZA4E SC 
a500 ED4BC PSC 
O504 A7 

OOS ED42 


Q307 CoOdOO X 
O50A Ca2705 R 


OSOL 2AS75C 
O510 7E 
O311 FE2C 


OS513:° CALFOS R 


O214 1EE4 

o318 COEZO3 R 
OS1E 3002 

os1D CF 

O31E - On : 
OS1F CDO00O x 


cher CL7402 R 
of25 DF 

526 22575C 
O5297 2ASFSC 
OS2C FIV62600 
o530 Choong xX 
oS33 DF 
0534 FE2C 

O534 CAS104 R 
oS39 CDFFOL R 


O33 cy 


O33D CHOOOO x 
O540 200B 

oO542 CoHOagdO X 
O845 FESC 

O347 C4FFO1 R 
O54A 

OS4B 1aF3 


of4D SEE4 


OS4F 47 

o350 EDR? 

OS52 110002 
OS55 C30000 x 


1442 
1444 
1445 
1444 
1447 
1448 
1449 
1450 
1431 
1452 
1453 ot 
1434 
1425 

1434 
1457 
1458 
1459 
14460 
1441 
1442 
1463 
1464 
1465 
1446 


1467 © 


1442 
1449 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
14728 
1479 
1430 
1431 
1482 
1483 
1424 
1435 
1424 
1437 
1453 
1489 
1470 
1471 
1492 
1493 
1494 
1495 
1494 


SYNTAX 


PROGRD: 


QUTOD: 


PPIROKs 


RESTCH: 


MORE?: 


DATA: 


LDAZ: 


LOAS: 
LDAS2: 


STMT SQURCE STATEMENT 


SBC HL, DE 


LD DE, (DATADD) 
ALD HL, DE 
LD (DATADD), HL 
LD HL, (CHANS_)- 
LD BC, (DTLNLN) 
AND A 
SHC HL, BC 
CALL DELREC 
JP RESTCH 

LD HL, (DATADD) 
LD A, (HL) 
cP ¢,? 
UP 2Z,PPTROK 


LO E,DATAK 

CALL SKIP 

JR NC, PPTROK 

RST ERROR 

DEFB “E’-“A‘+9 
CALL NC_HL 


CALL TEM2X 
RST -IGN SP 
LO (DATADD),HL 
LD HL» (X_PTR) 
LO (IY-Y¥+X_PTR+1),0 
CALL TCLHL 
RST IGNSP 
CP ¢,” 
JP Z.NEXTRD 
CALL END? 


RET 


CALL INIPT? 
JR NZ,LDAS 
CALL EXFRN 
Cr ey < . 
CALL NZ,END? 
RST NXT_IS 
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SFIND CUT AMOLINT 
+ POINTER SHOULD 
SUPDATE THE DATA 


BY WHICH THE REAL LIAIA 
BE UPDATED BY, 
POINTER, 


SREMOVE THE USED LATA EXPRESSION FROM 1HE 
3 ARGS BUFFER, 


iFINISH UP THE CURRENT READ. 
$GET CURRENT DATA POINTER WITHIN FRUG, 

$GET WHAT IT FOINIS ra, 
31S IT A COMMA? 
TYES, NEXT DATA EXPRESSION IS ALREADY FOUND 
5 THEN. 
NO, THEN SEARCH THE PROGRAM AREA FOR THE 
3} NEXT DATA TOKEN. 

IATA STATEMENT FUUND SO JUMP fo READ IT. 


30 
’ $ELSE, ANNOUNCE OUT OF DATA ERROR. 


+SET CURRENT CHARACTER POINIER TO THE BYTE 
5 JUST BEFORE THE CURRENT DATA EXPRESSION. 
SEVALUATE THE DATA EXPRESSION. 


“SALIGN DATA POINTER ON FLRST BYTE AE TER. 


§ EXPRESSION. 
SRESTORE CURRENT CHARACTER POINTER TG CURRENT 
$ POSITION WITHIN READ STATEMENT. 


$GET CURRENT CHARACTER ON CURRENT LINE. 
+CONNA? 

+YES, THEN MURE VARIABLES TO READ. 

3NO, THEN LOUK FOR A PROPER END TO THE 
+ STATEMENT. 


#IF EXECUTING 


sIF NOT A COMMA ~ WON’T RETURN 


SASSUME DCN’ T HAVE 32000 SPACES AFTER KEYWURD 


JR LOAZ2 

LO A, DATATK 
sHERE TO SKIP STATEMENT AT RUN-TIME. 
3A = KEYWORD (DATA OR Der) 
sHL -> CHAR AFTER KEYWORD 

LD BLA 

CFOR 

LD DE, 200H 

JP SUBLN1I 


~ 


SYNTAX CHECKING 


Lac OBJ CODE M 
0353 CODEOS R 
OSS ZABCSC 
OSSE 23 
OSSF 7E 
O240 FEO2 
OF42 2021 
0564 23 
0565 2 
O44 23 
O87 7E 
OS49 EGOF 
OE6A Cs 
O54B 4F 
O84 04600 
OS46E COPPI64 
C71 Cl 
On72 Cnoeea xX 
O375 O100FF 
O578 COP964 
OS7B 1503 
O3870 CLno00d X 
osso 248 
o5e1 22575C 
0534 C?_ 

O585 40 

O584° 69 

O887 CoO000 x 
OBBA 2B 

OSE 22575C 
OTSE cy 

O5SF CuUnEOS R 
Onve2 7% 

OS93 El 

OS94 2004 

OS96 ED4B785C 
O59A ED43765C 
OSVE Cc? 


aSA2 24 


1497 
1499 
14?9 
1500 
1501 
1502 
1503 
1504 
1505 
1504 
1507 
1508 
1507 
1510 
1511 
1312 
1513 
1314 
1515 
1514 
1517 
1518 
1517 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1iS2¢ 
13297 
1330 
1531 
153 

1533 
1a34 
1335 
1534 
15:37 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1544 
1547 
1543 
1549 
1550 


SYNTAX 
STMT SOURCE SfATEMENT 


RESTOR: 


RESTB: 
RESTA: 


RESTBC: 


RANLIS 


LRAND2: 


CONTs 


PAGE 23 
ASM 5.9 


sRESTORE CLINE NO.J 


NB FOR RESTORE 0 TO WORK, THE BYTE BEFORE THE BASIC PRUGRAM 


5 
; MUST NOT CONTAIN THE COUE FORK ’,7 
3 


(2CH). WE HAVE ARRANGE 


FOR IT TO BE SOH. 


CALL FIX_uU 


SPRESERVES BC 


LD HL, (SYSCON) 
INC HL 

LD A, (HL) 

cP o2 
JR.NZ,RESTBC 
INC HL 

INC HL 

INC HL 

LU Ay (HL) 
AND OFH 

PUSH BC 


-LO CLA 


LO BO 

CALL SANK ENABLE 
PoP BC 

CALL GETAL 

LD BC, OFFOOH 
CALL BANK ENABLE 


SENABLE ARCS BANK CHUNKS. 


SSAVE LINE NUMER FOR SEARCH. 
$# 
sRESTORE LINE NUMBER FORK SEARCH. 


sENABLE HOME BANK AGAIN. 
5 ee 


JR RESTA 
CALL FINDLL 


DEC HL 
LO. (DATADD).HL 
RET 


sRESTORE BC 

sPRESERVES BC 

LO HB 

LO L.C 

CALL FINDLL 

DEC HL 

LD (DATADD)» HL 

RET . 
SRANDOMISE CNJ: SET SEEU FOK RANDOM NUMBER GENERATOR 

CALL FIX_U 

LO A.B” 

aR & 

JR NZ,LRAND2 ; 

LO BC,(FRAMES) <;IF SEED ZERO OR NOT SPECIFIED 
LD (SEED),BC 

RET 


3 CONTINUE: JUMP TO PLACE WHERE LAST INTERRUPTED 


LO HL, (OLDPPC) 


7 ##H ALUT TIONAL 


INC H siNCREMENT HIGH BYIE 


» $ 


“SYNTAX CHECKING SYNTAX FAGE 24 


Loc OB CODE M STMT SQURCE STATEMENT =M 5.9 
OSA3 CAFDOL R 1851 JP Z,ERRN 3GIVE “STATEMENT LOST’ IF CONTINUING THE EDIT LINE 
O8AS = 25 1852 Dec H SRESVORE CORRECT VALUE 
1553 $ Heese 
1554 
O5A7 FISGR6 , 1555 LD DL, (IY-Y+0SPPC) 
O5AA 180C 1556 JR LUP4 
18b7 
155¢@ JUMP: + GO TON} ALSG USED FOR RUN & GO SUB 
oSAC 6 CODECS =O R159 CALL FIX_U 
OSAF 60 1560 LO HB 
OSBO 49 1561 LD LOC 
OSB1 1400 1542 _LD DO sFOR A VAGUE JUMP 
O5R3 7¢ 15463 LO AH 
OSB4  FEFO 1564 CP 240 3H WHY 2407 HH 
O5B4 3020 1845 JR NC, ERRB 
OSB2 = 22425 1566 Lugs LO (NEWFPC),HL sHERE TO JUMP TO STATEMENT NO. IN HL:D 
OSERE  FL720A 1547 LD (IY-Y+NSPPC).D 
OSBE Cy? 186s RET 
; 1569 | 
1570) «OUT: sOUT ALUR, BYTE 
OSBF CDCAOS R 1571 CALL GET_AB 
Sc2 e079 ‘1572 ' QUT (C),A 
O54 CP 1572,—~CS RET 
1574 : : 
1575 POKE: 3 POKE ADDR, BYTE ‘ 
1576 3 FLAGS ERROR B IF \VALUE\ >= 256 OR THE ADUKESS IS NOT IN 
i or $ THE RANGE 0 TO 2##16-1, 
oscsS cocaos R 15 CALL GET_AB 
osce o2 ; 15 th LO (BC),A 
ascy Cc? 1580 RET © 
15e 
1582 GE1_AB:. $GET ADURESS, BYTE 
1583 SSUBROUTINE GF PUKE & QUT 10 GET ADDRESS & BYTE OFF CALCTR 
154 3 STACK. 
1585 3A *= SIGNED VALUE OF BYTE (ABURT IF >= 256 IN AMYSOLUTE VALUE). 
1584 7HC t= ADDRESS (ABORT IF -VE OR >= 2°16). 
O8CA CuLOQVO xX 1587 CALL FP2A 
OSC 3815 1582 JR C.ERRB sIF \VALUE\ >= 254 
OSCF 2802 15a? JR Z,LPOK2 SIF VALUE >= 0 
osp1l ED44 1590 NEG 
O82 FS 1591 LPOK2: FUSH AF 
o5n4 COnEOS R 1572 CALL FIX_U 
-O8D7 Fi 1593 POP AF’ 
ose C9 1574 RET: 
1595 , 
1574 FIX: SFIX 1-BYTE UNSIGNED NO. FROM CALCTR STACK 
1597 SRESULT IN A, ABORTS ERROR B OIF DOGESN’T FIT. 
ospe cnd0o00 x 18¢2 CALL FF 
osnc 180% 1579 JR LFUZ 
1400 
1601) FIX LU: L$FIX UNSIGNED 2-BYTE # FROM CALCTR STACK. 
‘1402 3; RESULT IN BU, ABORTS WITH ERROR B IF DUESN’T FIT. 
OSDE . cDOOGOD Xx 1403 CALL FF2BC 


OSEL S301 1604 LFU2: JR C,ERRB 


. 


© 
e 


SYNTAX CHECKING 


Lac 


OSES 


. O8E4 


Q5ES 


OSES 
OSE? 
OSEC 
OSEF 


OSF 1 


OSF4 
OSFS 
OFS 


O5FE | 


OSFC 
OSFO 
OOO1 
0404 
0605 
0603 


Q460B 
O40E 
O40F 
O414 
O413 
O4618 
0617 
QG615 
O61 
O41A 
OS1B 
O4610 
O610 
0420 
0622 


O25 
0626 


629 
O4620 
OS2F 
0430 
O4S31 
04633 


C3 


OA 


CDACOS R 


010000 


Cossos R 


1303 


CONEOS R 


78 
Bi 

2004 
ED4BR25C 
cs 
EDSE4ysC 
ZAS9SC 


~ 
ee 


ChOOOO 
Coded 


<x 


230F 
SABCSC 
23 

23 

SE 

23 

54 

EB 

2B 
22575C 
1807 
2AS35C 


1405 
1406 
16407 
1408 
14604 
1410 
1411 
1412 
1413 
1614 
1415 
1416 
1417 
16413 
1419 
1620 
1421 
1422 
1423 
1424 
W425 
1426 


1427 . 


1428 
1629 
1630 
1431 
1432 
1633 
1434 
1435 
14636 
1637 
1638 
14639 
1640 
1441 
1442 
1443 
1444 
1445 
1646 
1447 
1643 
1449 
14650 
1451 
1452 
1453 
1454 
14655 
14656 
1657 


1653 


SYNTAX 
OBJ CODE M STMT SOURCE STATEMENT 


ERRB: 


RUNS 


CLEAR: 


CLR-BCs 


LCR3A: 


LCR3B: 


LO RE, (VARS) 
LO HL,» (E_LINE) 
DEC HL 
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RET Z 
RST ERROR SERROR B, NUMBER OUT OF RANGE 
DEFB 190 
sRUN CN]: DELETE ALL VARIABLES AND GO TO N 
CALL JUMP 
LO BL.O 
CALL RESTBC 
JR CLRUBC 
SDELETE VARIABLES, THEN CLEAR SCREEN, & GOSUB & M/C STACKS. 
SASSUMES THAT THERE ARE ALREADY TWO ITEMS ON THE M/C STACK, & 
3 THAT (ERRUSP) -—> LOWER ONE. 2 
$SETS UP THE CLEAR STACK AT (RAMTUP), BUT ABORTS FIRST IF NO 
H ROOM FOR ABOUT 25 (19 AS IN CHK_Sz + 6 FOR LUCK) 
3 STACK ITEMS BETWEEN (STKEND) & (RAMTOP). 
CALL FIX_uU : 
; sCLEAR BC 
LD A»B 
uR C 
JR NZ,LCORS sIF BC <> oO . 
LD #C,(RAMTOP) <sIF BC = O JHEN PRESERVE (RAMTOP) 
PUSH BC 


+HL #-> SOH AT END OF VARIABLES 


CALL DEL_DE sDELETE VARIABLES 
CALL KCLS 
5 ### ADDITIONAL 
LD HL, ARSFLG SAROS PRESENT? 
LO LL» (HL) 
BIT 7oL 


JR Z,LORIA 
LB HL» (SYSCOM) 
INC HL 
INC HL 
LOE, (HL) 
INC HL 
LD D, (HL) 
EX HL. DE 
DEC HL 
LO (DATADD) »HL 
JR LCR3E 
LD HL, (PRUG) 
a 


DEC HL 
Lo (DATADD) » HL 
3 eR 


LO HL, (STKEND) 
LO DE, 50 

ADD HL, DE 

POP DE 

SBC HL, DE 

JR NC, ERRM 


sNO, JUMP. 
SAROS - RESET DATA POINTER (CG BYTE BEFORE FIRST AROS 


+ AROS LINE. 


3NO ARGS - RESET DATA FUINTER TO FIRST BYIE. 
’ BEFORE PROGRAM AREA IN RAM. 


sRESET DATADD WHEN CLEARING 


SLE := NEW (RAMTOP) 


$IF THERE IS NO ROOM BELOW 


SYNTAX CHECKING | SYNTAX 
Lot OBJ COLE M STMT SOURCE STATEMENT 


1711 CHK_SZ: 
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0635 2AB43C 1659 LD HL, (P_RAMT) Fi 
0638 A7 1440 ANL A 
639 Ens2 1641 SBC HL, DE 
O43H 3002 1442 JAR NC LOR4 SIF ROOM ABOVE 
O420 a, 1643 ERRM: RST ERROR SERROR M, (RAMTOUP) GUT OF RANGE 
O063E 15 1644 DEFB “M’-“A’+9 
; 14645 
O63F EB 1446 LCR4: EX pa HL sHL &= NEW (RAMTOP) 
0640 228252 1647 LO (RAMTOP),HL 
0643 Di 1448 POP DE 
0644 C1 16469 POP gC 
. 1670 
1671 5 *##+ ADDITIONAL 
0645 2ACOSC 1472 Lo HL» (MSTROT) SLOCATION ABOVE STACK 
0643 2B 1473 DEC HL 
1674 3 HHH 
; : 1475 
4649 S63E 1476 LD (HL), 3EH sNULL GOSUB RETURN 
OS4B. 2B 1477 DEC HL 
0640 F? 1473 — LO SP,HL 
0640 us . 164/77 PUSH BC 
OG4E ED7 3305 1480 ’ LD (CERROSF),SF 
0652 ER. 1661 : EX DE,HL 
0683 EQ 1482 JP CHL) +REVTURN FROM CLEAR 
1483 gf ‘ 
16584 GO_SsUH: 360 SUB Ni GO TON, LEAVING GOSUB BLOCK ON M/C STACK FOR 
; 1685 3 RETURN, 
14846 3A GOSUB BLOCK HAS THREE BY1ES: THE TOP CON THE STACK, I.E. 
1457 ; THAT WITH LOWEST ADDRESS] IS THE LS BYTE OF THE LINE NO., 
1453 H THE NEXT IS THE MS BYTE, & THE SRD IS 1 + THE SUBLINE NO. 
0654 Cit 1689 FOP DE SDE := ENDSTT 
0655 FO4&40u 1470- Lo H, (1Y-Y+SUBPPC) 
0658 24 1471 INC H . ‘ 
O659 ES 1472 EX (3P),HL sHL = REIWRN FROM EXCUTE 
O458R ° 33 1473 ING SP ; 
O6SH ED4B455c¢ 1474 LO BC. (PPC) 
O4SF cs 1475 PUSH BC 
0660 ES 1496 — FUSH HL 
661 ED72305¢C 1497 LO (ERRUSF),SP 
046465 DS 147s PUSH DE 
0465 CLACOS R 149% CALL JUMP 
1700 
: 1701 “ $##+#A001 TIONAL 
O649° ZACOSC 1702 - LO HL. (MSTEOT) 
0460 25 1703 DEC H SFIND BASE OF STACK AREA 
0440 111000 1704 LD DE,OO10H SALLOW SOME SPARE rocM 
0670 19 1705 ADD HL, DE . 
O671 ED72 1704 SBC HL.SP STEST THE BASE ADDRESS AGAINST “SP” 
0673 nS 1707 RET C SRETURN IF OK, 
04674 1914 1706 JR ERR SERRUR IF NOT 
1709 fae 
1710 


3 CHECK THERE IS ROOM FOR BC EXTRA BYTES OF DATA 


1712 3 ASSUMES 41 STACK ITEMS INCLUGING OWN RET ADDR SUFFICE 


lee. 


" 


op 


SYNTAX CHECKING 


Loc 


0676 
067? 
OS7A 
0670 


0670 
630 
0681 


O43 
0437 


OS 
O48A 
0680 


OGSF 
O6?7O 
Os71 
0492 
O692 
0695 
ObF7 
O68 
OLP? 
O6SA 
OS7E 
OG9F 


OLA2 - 
O6A3 
O6A4 
OLAS 


OBJ CODE M 


EDSEB25C 
EDS2 


- DS 


2E03 
[30000 x 


FESE , 


EB 
EU73305C 
cs 

CSRSOS R 


OS 
ES 


0% 


FDOCBOLAE 


CODEOS R 


SYNTAX PAGE '27 
STMT SQURCE STATEMENT ASM 5.9 
1713 $ PRESERVES ABC, CALLS ERROR 4 IF NO ROOM, 
1714 H SETS CARRY IF GK , 
1715 3I1F NO ROOM WHEN CHECKING SYNTAX, CLEARS SCREEN & TRIES AGAIN 
1714 LD HL, (STKEND) . 
1717 ADD HL,» BC : 
1718 JR CO, ERR4 ;IF BC MILES TUO BIG 
1719 EX DE,HL : 
1720 CHK_L: 3CHECK SP NOT < DE+80 
1721 . $PRESERVES ABCDE. 
1722 LD HL,.So : 
1723 ADD HL, DE 
1724 JR C.ERR4 
1725 ‘ $### ADUI TIONAL 
1724 LO DE, (RAMTOP) 
172 SBC HL, DE ’$THE TEST IS “LIMIT’ AGAINST “RAMIOP’ 
1728 J $e 
17297 : 
17230 . RET C + IF. OK 
1731 ERR4: LOL, SERRUR 4, NO ROOM 
1732 JP LE3 : 
1723 
1734 RETURN: 3 RETURN: PICK UP MOST RECENT EXTANT GOSUB BLOCK & JUMP 
1735 FOP &C: sBC t= ENCSTT 
17246 FOP HL sHL 2= RETURN ADDRESS FROM EXCUTE 
1737 FOP DE sDE := LINE NO; OF GOSUB RETURN 
17238 LO ALD 
1739 CP SEH 
1740 JR Z,LRET2 sIF THIS IS THE TERMINATOR BLOCK 
1741 DEC SF : 
1742 EX (SP),HL 3H t= SUBLINE NO. OF GOSUB RETURN 
1743 EX De»HL 
1744 LD (ERRUSP),SP 
1745 PUSH BC 
1746 JP LUP4 
1747 
1748 LRET2: PUSH DE SREPLACE TERMINATOR BLOCK 
1/49 PUSH HL SABORT RETURN 
1750 RST ERROR sERROR 7, RETURN WITHOU! GOSUB 
1751 LEFB & 
1752 : 
1753 PAUSE: sRUN TIME ACTION FOR PAUSE STATEMENT. 
1754 sLET N = TOP OF STACK, ROUNDED 10 A 2-BYTE UNSIGNED INTEGER. 
1755 “$sWAITS N FRAMES, GR, IF N = 0, WAITS FOREVER. 
1/56 ® 3sIN EITHER CASE, STOPS WAITING I[F A KEY IS PRESSED. - 
1757 ‘ 
1753 3 ### ADDITIONAL 
L/S? RES 5S. (1Y-Y+FLAGS) sCANCEL KEYHIT NOW 
1740 § eae 
1761 CALL FIX_U , 
17462 LPE2: HALT sTILL NEXT FRAME INTERRUPT 
1763 DEC BC 
1764 LD A.B 
1745 oR Cc : : 
1744 JR Z,LPES SIF COUNIED OL 


oy 
. 


SYNTAX CHECKING 


Loc 


OGE3 
O4B4 
O4ES 
OGHA 
OSB 
OGERY 
OfBD 
O4GBF 
4603 


CG4 
OSCK 
0408 
O4C9 
O4CA 
O4CE 
O4D0 
OSD 
OGD 
O4D4 
O6D6 
0407 


O6D3- 


0608 
o40n 
O4DF 


Q6E2 
O6ES 


 O6EY 


O4EH 
O6EC 
OGEE 
O6FO 
OLF4 
OGFS 


| OGF7 


OSF9 
OGFA 
O46FC 


OB! CODE M 


73 
Al 
Sc 

POOL 
as 
FICBO16E 
25EE 
FOCBOLAE 
cy 


SE7F 
DEFE 

1F 

DS 
FOCE7076 
2802 


CDOoOO x 
2805 


SECE 
C34F0S R 


FOCBOIFS 
CHOOOO x 
3016 


FEZ 
2005 
FOCBOLES 


FEZS 
20230 


FE29 


2520 


SYNTAX PAGE 28 
STMT SOURCE STATEMENT ASM 5.9 
1767 LOI A.B 
1768 ANL C 
1769 INC A : 
1770 JR NZ,LPES SUNLESS BC WAS DECREMENTED FROM O TO FFFFH 
17/71 INC BC 3 an WHICH CASE RESTORE IT TO 0 
17/2) LFE3: BIT KEYHIT, (IY-Y+FLAGS 
17730 WR Z,LPE2 s CARRY "oN WALTING UNLESS KEY PRES: SED 
(1774 LPES: © RES KEYHIT, (1Y-Y+FLAGS 
17/5 RET 
1776 
1777 = BREAK?: #READS BREAK KEY (CAPS SHIFT & SPACE), RETURNING NC IF IT IS 
1778 3 PRESSE. 
A779 ASSUMES SPACE KEY IS KEY O IN ROW 7, & CAPS SHIFT IS KEY O IN 
1730 7 ORUW OO, : 
1731 LO A, 7FH s;FOR ROW 7 eo Bt ; 
1722 IN A+ (KEPT) 
1733 RRA 
1724 RET C sIF SPACE KEY NOT PRESSED 
17o5 | BIT 65 (1Y-Y+ERR_LN+1) : é 
1784 JR Z,BR1 
1737 SCF 3A BREAK KEY PRESSED ee ON ERROR 15 IN PERECT 
1788 RET $ OWES NOT COUNT. 
1729 BRIis LD A, OFEH 
1790 IN Ay (KB_PT) READ CAPS SHIFT 
1791 RRA in : 
1792 RET 
17373 
177?4 DEF: iDEF FN-LETTER C$ 7 ¢( € LETTER C$ 3:C , LETTER C # J]¥] ) 
1795 3 = EXFRN 
1736 sWHEN THE SYNTAX OF THIS IS CHECKED, A SLUG (SLUG +5 BYTES) 
1797 ; 1S INSERTED IMMEDATELY AFTER EACH FORMAL PARAMETER: THIS 
1793 ; WILL HOLD THE ACTUAL PARAMETER WHEN THE FUNCTION IS 
179 ; CALLED, 
1800 CALL INTPT? 
1801 JR Z,LDUF2 
1502 SHERE TO SKIP QVER THE DEF STATEMENT AT RUN-TIME 
1803 LD A. DEF_TK 
1804 JP LOASS 
18038 : 
1506 LOF2: HERE TO CHECK SYNTAX GF UEF, SLUGGING FORMAL PARAME (ERS: 
1507 SET NO. (1Y-Y+FLAGS) 
1508 CALL ALFHA? 
1809 JR NC.LOFSZ #(WHENCE TO SYNERR) IF NOT LETIER | 
"1810 RSTONXT_IS 
1911 CF <$- - 
1812 JR NZ, LOF25 $1F NUMERIC CNET aN , 
1813 RES NO, (1Y-Y+FLAGS) 
1214 RST NXT_IS 
1313 LOF25: uP -(" 
1514 JR NZ,LDFS sWHENCE TO SYNERR 
1517 RST NXTUIS 
1518 cP “)¢ 
1519 JR Z,LOFS 7IF NO FORMAL PARAMETERS 
1820 LDF3: ¢HERE WHEN EXPECTING A FORMAL FARAMETER AT CURRENT CHAR 


am 
‘e 


SYNTAX CHECKING SYNTAX : PAGE 29 


>. 


e 


Loc OBJ CODE M STMT SGURCE STATEMENT ASM 5.¢ 
tect HL = (CHUACIN), A = (HL) 
O6FE cnoob~dg xX 1822 CALL ALPHA? 
O7O1 D2aso2 R 1823 LOFS2: JP NC. SYNERR 
O704 EB 1824 EX DE. HL 3D 8-> LETTER 
O705 , 1825 R3T NXTUIS 
0706 FE24 1826 CP “$< 
o708 © 2002 1827 JR NZ, LOFS5 IF NUMERIC PARAMETER 
O70Q EB 1928 EX DE. HL SDE t-> “$- 
0708 129 RST NXTLIS 
1830 LDF35: sHERE WHEN FORMAL PARAMETER FOUND. 
16:31 $(CHUADD) -> NEXT CHAR, VALUE IN A — SHOULD BE “.° OR “)¢, 
; 1832 $DE -> BYVE AFTER WHICH SLUG IS TO "E INSERTED. 
@70C EB iene EX DE, HL 
o7on 010600 1834 LD BC, NOSIZE+1 $BC := NO. BYTES IN SLUG 
0710 chooodg xX 1835 CALL INSERT 
0713 «623 1824 INC HL 
0714 23 1837 INC HL 
O715 3606 1835 -LO (HL), SLUG Es 
0717. FEZ2C 1839 CP 4,7 $A STILL = CHAR AFTER FARAME SER 
O717 2003 340 JR NZ,LOFS 
O71B | 1241 RST NXTUIS : 
o71C 1860 1842 JR LOFS 3FOR NEXT FARAMETER 
1843 
1844 LDFSs SHERE WHEN FORMAL PARAMETERS ALL CHECKED. 
1845 $A = CURRENT CHAR = [TERMINATOR (SHOULD BE “)~). 
O71E FE29 12446 CP 7)- 
0720 2012. 1847 UR NZ»LOFS SWHENCE TO SYNERR 
O722 1845 RST NX1_LIS , ; 
0723 FESD 1849 CP v=’ . : 
0725 200E 1250 JR NZ, LOF6 ;WHENCE TO SYNERR 
0727 1851 _ RST NXT_IS 
0728 3A3B5C 1852 LD A» (FLAGS) sNOW BIT NO OF A SHOWS TYPE 
0728 FS 1853 _ PUSH AF : 
o720 choooo xX 1854 CALL EXPRN 
O72 Fi S55 POP AF 
0730 9 FUAEOL 1854 XOR (LY-Y+FLAGS) 
O7%3 E640 1887 AND 1.SHL.NO 
0735 C2AS02 R 18S LOF6:. UP NZ,SYNERR $IF TYPE OF EXPRESSION WRONG 
0738 CDOFFO1 R 1852 CALL END? sWON’T RETURN 
1240 = : : 
1841 3## COLE FOR ADDITIONAL KEYWORDS 
1SA2 
1863 DEAL WITH ON ERR 
073B ODF 1864 ONERR: RST IGN SP 3FETCH CURRENT CHARACTER 
O720 FE7R 1845 CP 7FH LOOK FOR “ON ERR RESET’ 
O73E 2829 : BGS UR Z,CINLRES 
0740 FEEC 1847 CP OECH ;LOOK FOR “ON ERK GO TO’ 
0742 2833 1848 JR Z,0N_Ga - 
0744 FEES 1849 CP OESH sLocK FOR “ON ERR CONT 
0744 CzAs02 R 1870. JP NZ.SYNERR SMOQNE CF THESE FOUND 
1871 
- 48720. 3HANDLE “ON ERR CONT 
0749 E7 1873 RST NXT_IS ISTEP GN 


O74A CLFFO1 R 1874 CALL END? sFINISHEL IN SYNIAX TIME 


-* 
“4 
> + 
a 


“SYNTAX CHECKING SYNTAX FAGE 30 


« 


Loc OBJ COVE M STMT SOURCE STATEMENT ASM S.¥ 
074D FOCB7D7E 1875 BIT 7, (LY-Y+ERRULN+1) $15 “ERRUR ON’ 
O751 Cs 1376 "RET Z SFINISHED IF NOT sO 
O732 2ABSSC 1877 LD HL, (ERR_C) SFETCH THE “CONTINUING LINE NUMBER 
O735 224250 1578 LO (NEWPPC),HL 9 sENTER IT 
O73 SABASC . 1879 LD A» (ERR_S) SFETCH THE “CONTINUING STATEMENT NUMBER’ 
O73B 32445C 1380 : LD (NSPPC).A sENTER IT ALSO 
O7S5E FOCB7DB6 1531 RES 6, (1TY-Y+ERR_LN+1) 
07462 Ei : ONEXIT: POP HL sDON’T LOOK FOR BREAK JUST AFIER ON ERROR CONTINUE, 
0763 110700 LO GE.O007H 3 OR ON ERROR RESET. 
0766 1y ADD HL, DE 
O767 ES FUSH HL 
0763 cy RET 
1Se3 THANDLE “ON ERR RESE)- 
O769 E7 1889 CNLRES RST NXTUIS 7STEP CN 
O76A COFFOL R 1890 CALL END? 3EX1T IN SYNIAX TIME 
O76D FOCK7OBE 1591 RES 7, (1Y-Y+ERRULN+1) 3“ERROR OFF* 
0771 FOCH7LUBG 1892 RES 6, (1Y-Y+ERR_LN+1) +RE-ENARLE BREAKS, 
0775: ISEB 1293 JR ONEXIT 
1934 
. 1E95 , FHANULE “ON ERROR GO TO’ 
0777 E7 1894 ONGO § RST NXT_IS SSTEP ON ' 
0773 CUAON02 R 1897 ; CALL TEMS 7FING THE LINE NUMBER 
077B CUFFOL R 1573 CALL END? 3END OF SYNTAX PATH... : 
O77E CDO000 X 1899 CALL FP2BC - $COLLECT THE LINE NUMBER: . : 
O731 73 1900 LD ALB 3FETCH THE HIGH PART 
O732 ESSF . 1701 AND 3FH FORCE IT TO “LINE NUMBER RANGE’ WITH BIT 7 SET 
O734 Fé30 1902 OR 20H . 
O736 47 L703 LO BLA 
O727 ED43B65C 1704 LD (ERR_LN),BC $ENTER IT 
0O73B CP 1705 RET 
17046 - : fA 
» O78C LF 1707. DELTE: RST IGNUSP Ss IGNORE LEADING SPACES. 
0780 FEC 1903 1 ar 3 COMMA? 
O73F 200A 1yvoy AR NZ, DELL 7NO, JUMP. 
1710 sNO FIRST LINE NUMBER, , 
O79F1 DOOD X 19d. CALL INTPT? : 
O7274 250C 1912 JR Z,DEL2 . INTERPRETING? NOY JUST CHECKING SYNTAX 30 JUMP 
O77 EF 1913 vST CALCTR 3 
O797 Al 1°14 DEFER CONST+1 
O797S 38 1915 CEFR QUIT 
O79F 1507 1916 JR DEL2 $LINE 1 USED IN CASE OF DEFAULT 
; 1917 ; . 
O77R °° CDANDVZ Ro1iv1S DELi: CALL” TEMG 3FIND THE FIRST NUMBER 
O79E FE2C 1919 cP *,° + COMMA? 
O7AQ 2035 1720 JK NZ,DELERR SERROR IF COMMA MISSING. 
1921 
O7AZ E7 1y22 .DELZ: RET NXT_IS SSTEF ALONG 
1923 
1724 ;LOOK FOR SECOND NUMBER 
O/7AS FEQD 1925 CP UR_CC. SCARRIAGE RETURN? 
O7A5S 2309 1924 JR Z,DEL3 . sYES, JUMP. 
O7A7 FEZA 1927 : CP “i 3s COLON? 


O7A?, 2805 1923 JR Z,DEL2 iYES, JUMP. 


Png 
« FP 


SYNTAX CHECKING SYNTAX 
Lor ORS CODE M STMT SOURCE STATEMENT 


O7AB CLAQOZ R 1929 CALL TEM4 
O7AE 1207 19730 JR DEL4 
1931 
O7HO OLOF 27 1932 DEL3: LU BC, 9999 
O7B3 CLOAGO X 1933 CALL INTPT? 
O7B6 C40000 X 1934 CALL NZ,STK.BC 
1935 
O7B9 COFFOL R 1i?34 DEL4: CALL ENL? 
1937 
O7EC CUD9O7 R 1932 CALL DEL SUE 
O7EF 23 1937 INC HL 
O7IT@ COO00O xX 1740 CALL FINDLL 
“O7C3 ES 1941 PUSH HL 
a7C4 CULYO7 R 1942, CALL DELS 
Q707 ims slalel ele) X 1943 CALL FIND 
O7CA Eb 19744 EX DE,HL 
O/7CB El 1945 POP HL 
oO70r ES 1746 - PUSH HL 
o7CD 37 1v47 SCF 
O7CE EDS2 1743 : SEC HL,DE 
O7D0 - Ba05 1749 JR C,DELERR 
O7D2 El 1950 POF HL 
O7D3 ima ale laTele) X 1951 CALL DEL_DE 
O7D46 cy 1952 RET : 
1VS3 
_O707 CF 1954 DELERR: RST ERROR 
O7D3 OB ' 1PSS CrFB OBH 
1954 
1957 
O7D9 CooQ000 X 1953 DELSUB: CALL FP2BC 
o70C 73 1759 . LD ARB 
o7 uu E63F 19460 AND 3FH 
O70F &7 1761 LO HA 
O7EO 49° 1962 LO L,C 
O7E1L CP 1943 RET 
1944 
1945 P 
O7E2 E7 1964 SOUNDO: RST NXT_IS 
O7E3 CUP802 R 1967 SQUND: CALL TEMS 
O7ES CLOOOGO X 1943 CALL INTPT? 
O7ED 2814- 1949 SUUNTI2: JR Z,S0UNDS3 
O7EB CpOd0O X 1970 CALL FP2A 
O/7EE FS 1971 PUSH AF 
O7EF Chadd X 1972 CALL’ FP2A 
O7F2 FE11 — 1973 CP 17 
O7F4 DZA802 R 1974 JP NC» SYNERR 
O/F7 20 1975 DEC A 
O7FS 3C 1976 INC A 
O7F9 FAASO2 R 1977 JP M,SYNERR 
O7FC D3FS 1773 ~—C OUT (OFSH),A 
O7FE Fil 1979 POP AF 
O7FF D2Fré ; 1930 OUT (OFGH).A * 
osol1 OF 1921 SUUNDS: RST IGN_SP 
OSO02 FE3B 1932 os ne 


PAGE 31 
ASM 5.9 


sFETCH SECOND NUMBER. 


sENL OF PROGRAM 
5s INTERPRETING? 
sPUT 9999 ON THE STACK. 


SEND OF SYNTAX? 

SDELEIE AT RUN-TIME. 

sSCOLLECT A NUMBER 

SINCREASE BY 1 TO NAKE INCLUSIVE DELETIONS. 

3GET STARTING ADUR™SS INIG HL. ; 
SAND THEN ONTO STACK 

sCOLLECT SECOND NUMHER. 


SSVARTING ADDRESS OF LAST LINE INTO HL. 


SAND THEN INTO DE. 
sSTARTING ADDRESS OF FIRST LINE BACK INTO HL 


iSAVE IT. 
3SET CARKY FOR SUBTRACTICN 
3 SUBTRACT 


sERROR IF FIRST LINE AFTER SECOND LINE. 
sGET STARTING ADDKESS OF FIRST LINE. 
SDELETE THE LINES. 

SAND RETURN, 


SRESTART AT ERROR AT RUNTIME 
SNCINSENSE IN BASIC 
;COLLECT LAST NUMBER. 
Hy 

SREVUCE TO LINE NUMBER RANGE 
;MOVE NUMBER TO HL : 
;END UF RUN. 


SUPDATE CH AUD 
5GET #,4 


CHECKING SYNTAX OR INTERPRETING? 


iCHECKING SYNTAX, SO) JUMP 

3SAVE SECOND #, VALUE TO BE QUTPUT TO SOUND 
SCHIP, IN A. 

SREGISTER # MUST BE LESS THAN 17. 


SYNTAX ERROR IF NO). 


TREGISTER # MUST BE POSITIVE # ALSO 


. 


sREGISTER # TO AUDRESS PORT. 


sVALUE TO DATA PORT. 
' SUPDATE CHADD 
sANY MORE VALUES TO GUIPUT? 


af 


ot x 3 
pris 
* SYNTAX CHECKING SYNTAX : PAGE 32 
Lit OBS CODE M SIMT SOURCE STATEMENT ASM 3.9 
4 O204 2800 1733 JR Z,SOUNDO YES, UMP 
0806 CDOFFO1 R 1934 CALL END? 3NO. MAKE SURE WE“RE AT END OF STATEMENT. 
‘) iveEs SYNTAX ERROR IF NOT. 
O809 Cc? 1934 REI 
1937 END 
; 
» 
» , 
J 
) 
) 
) 
) , 
) 
) 
a 


PRINT STATEMENT 


LOC, 


0000 
0003 
0004 
a005 


0006 
0008 


Q00A 
ooon 
QOOF 


SYNTWO PAGE 1 
Gf CODE M STNT SUURCE STATEMENT ASM 5.9 
1 #HEADING PRINT STATEMENT 
419 #LIST ON 
420 #INCLUUE MORESYSV.S 
421 BANK_ENABLE EWU 6499H 
422 CALL_RANK Eau 45 L0H 
423 MOVE_SZ EGU DIRIVES-4000H 
424 DEST7 Eau OFFFFH-MOVE_SZ+1 
425 FIX EGU DEST7-4GO00H 
24 CALL_VBANK EG CALL_BANK+F 1X 
427 GOTO_BANK EQu 6572H = SADDRESS OF "GO fO BANK" BANK SWITCHING 
423 3 AWARE. 
429 XFER_BYTES EQU 6722H  sINUIRECT DATA TRENSKER BETWEEN BANKS. 
430 GOTO_EXT’ EQU 6815H  $FOR INITIALIZATION COVE IN HOME BANK 
4at 5 EXTENTION, 
432 SLVM EQu O1ABH  SADDRESS OF TAPE ROWIINES FOR SAVE, Loan 
433 + VERIFY AND MERGE COMMANDS. 
434 BLOSCT EQu OFF4H = S$ADDRESS OF INITIALIZATION ROUTINE TO 
435 + BUILD THE SYSTEM CONFIGURATION fASLe. 
436 RESSCT EU OC4CH ADDRESS OF RESET ROUTINE TQ AND DEVICES. 
437 PASSING -  EOU OFOVH Ss A0DRESS OF RUUTINE TO PUSH PARAMEFERS Ta 
438 + THE BEU ROUTINES ONTO THE MACHINE STACK. 
439 GLOBAL KULFPR»K_PRIN, BORDER, COLITM, INPUT, GR_COL, SKIPIT, FASSEM 
440 GLOBAL ERRH, TV_COL, STRITO, NOTKB?, RSE!» NEWUEV, ERASE, FORMAT, MOVE, CAT, TERM? 
441 GLOBAL PLSEQ, ILSEQ, CULUUR, HIFLSH 
442 
443° EXTERNAL SETCUR, PR_TV2,R_ATTS s10_1 
‘ 444 EXTERNAL ERRS, CLLHS, TVFUL?, ATTBYT 
445 EXTERNAL EDIT_K, ECHO, DESLUG 310_2 
446 EXTERNAL X_CALC, SELECT, ERRO — sEDIT 
447 EXTERNAL SRCHSC sEDIT 
448 EXTERNAL ENO? TEMG, SYNERR» ERRB, TEM1O 3 SYNTAX 
443 EXTERNAL FIX_U, TEM1,LT22,F1X_U1,DYADIC 
450 EXTERNAL GET_XY . + GRAPHS 
451 EXTERNAL EXFRN, INTPT? sEXERN 
452 EXTERNAL POPSTR, ALPHA?» PSHSTR»LET 3 IDENT 
453 EXTERNAL GUTPUT, FP2A,STK_A $ INCLI 
454 EXTERNAL RSTSTR + CHANS 
455 
454 
457 SET_SP: sEXIT CALLER IF BIT INTPT OF FLAGS IS CLEAR 
: 458 SPRESERVES ABCDIE & CARRY 
cooo0O =X 4 CALL INTPT? 
E1 460 FOP HL . 
cs 461 RET"Z $NQ ACTION IF ONLY CHECKING SYNTAX 
EY 442 JP’ (HL) ; 
463 
444 K_LPR: 3LPRINT STATEMENT 
BEOR 4465 LD A,LPR_ST 
100 466 JR LKP2 
467 - 
468 K_PRINE $PRINT STATEMENT 
SACESC 469 LD A,(ARSFLG) s$NOTE STREAM # 15 AN OUTPUT STREAM NUMBER. 
CBS7 470 RES 0.A ; 
32C65C 471 LD (ARSFLG).A 


PRINT STATEMENT SYNTWO PAGE 2 
Loc QR CONE M STMT SQURCE STATEMENT ASM 3.9 
Oo12 BEO2 472 LO As PROST 
oo14 Cooo0od X 4732 LKP2: CALL INTET? 
QO17 [40000 X 474 CALL NZ,SELECT 
QOO1A CoOOOd X 475 CALL INTPT? 
oo1p C42A00° R476 CALL NZ» PRINTING . 
0020 cno00a X 477°. CALL RUATTS 
0023 Co2FoOoO R 478 . CALL PLSEQ 
0026 CLOGOO X 479 CALL. END? 
oo2? Cc? 4380 RET 
: 421 
Q02A FOCHOLES 482 PRINTING: SET 4, (1Y-Y+FLAGS) SPRINT RESET, ON ERR AND SOUND 1UKENS 
OQ02E Cy 453 : RET : § AS CUPYRIGHT AND CURLY BRACKET 
424 : s SYMBOLS 
455 
24 PUSEQs SPRINT SEQUENCE AT (CHADD) 
437— SPRINT-SEQUENCE s:= ; 
4:33 3 CC PRINT-ITEM 1 PRINT-SEPARATOR J# .£ FRINT—ITEM 2 
4s STHIS OCCURS EITHER FOLLOWING “PRINT” IN A PRINT STATEMENT, OR 
4g . H WITHIN BRACKETS AS AS INPUT ITEM. : 
QO2F ; 4PL RST DTGNUSP 
anso coyvs0o0 R 492 _ GALL KETTER : 
O03 S500 493 AR Z,LPQ4 3I1F SEQUENCE EMPTY 
Ooss COVEOO R 494 Lpa2s CALL PUSEP $C FRINT-SEPARATOR Je 
Q038 2oFE 495 JR Z, LP 
OO3A Co4coe0 R 494 CALL. PLITEM § PRINT-ITEM FPRINT-SEFARATOR \ FRINT-ITEM ° 
QosD CLVEQO R 497 CALL PUSkeP : 
0040 ZF 3! 493 JR ZsLFR2 
0042 FE29 4929 LPE4: CP“)? : 
0044 cs S00 RET Z. sDON’T WRITE NLL IF TERMINATED BY KET 
S01 WR ONL: SWRITE NEWLINE TO SCREEN 
o045 CoO800 R S02 CALL SEI_SP 
0048 SEOO So3 LO A»yNL 
Q04A SoO4 RST WRCH 
oo4B. Cc? Sos RET 
balay 
507 
sos PLITEM: 3DEAL WITH PRINT ITEM AT (CH ADD) 
oy SPRINT-1I1EM i:= 
B10 7 3 AT NOJEXPRN » NO.JEXFRN \ 
Sil H TAB NO.JEXFRN \ : 
512 3 C FORE \ BACK \ FLASH \ BRIGHT \ QVER \ INVER? J NO.EXFRN \ 
513 - 3 EXPRN \ 3% 
: S14 ; 3 # NO.EXPRN 
004C S15 RST IGN_USP 
oo04n FEAC S14 CF AT i 
QO4F 2000 S17 JWR NZ LPM2 ze ; 7 
OO81 COo000 X S18 CALL DYADIC 
OOs4 CLOAdO R Siv CALL. SET_SP 
QOS7 CHOGOO xX S20 CALL GET_XY 
OOSA SE14S S21 LO A»AT_CC 
aoscC 1310 . _ oa JR LEM2S 
S23 
OOSE FEAD S24 LPMz2: CF TAB 


0060 2012 S25 JR NZ,LPM3 


FRINT STATEMENT 


Loc 


0462 
Q063 
O04G 
0069 
0060 
Q06E 
QO6F 
0070 
O071 
0072 
0073 


o074 
QO77 
Q078 
OO7B 
0070 


OO/F 
OOs2 
O0R. 


Qds? . 


oosC 
OOS 
QOOSE 
QOSF 
o0270 
oOo71 
aOgz 
O0FS 


OoFs 
O0F7 


OOF%E 
OO9F 
OOAL 


Q0AS3. 


QOAS 
Q0A7 


OBI CODE 


CHOQeO 
Cno00d 
Cloo0d 
E17 


7? 
73 
cy 
Co4nioz 
Do 
Cocoa 
DO 
CDOa0O 


Coo000 


‘FRICEO174 


ccoeo0o 
C20000 
73 


FE3B 
2314 
FE2C 
200A 
CHO00O 


M 


x< x< 


xx< DB 


x 


SYNTWO . PAGE 3 


SMT SOURCE STATEMENT ASM 5.9 

526 RST NXT_IS 

S27 CALL TEMS 

528 CALL SET_SP 

529 CALL FIX_U 

530 LD A, TABLCC 

S31 LPM25: RST WRCH 

sau Lo A.C : 

S33 RST WRCH sLINE NO. OR LS BYTE OF TAB S1OP 

524 LO AB 

535 ST WRCH sCOL. NO. OR MS BYTE OF TAB STOP 

534 RET 

537 : 

S33 LPM3s sHERE WE TEST FOR A COLOUR ITEM. 

529 CALL COLITO 

540 RET NC sIF WAS COLOUR ITEM 

S41 CALL STRITO 

S4z RET NC sIF WAS STREAM ITEM 

543 CALL EXPRN 

544 PRINT: ;WRITE RESULT OF EXPRESSION ON SCREEN 

545 CALL SET_SP ; ot 
SA HIT 4, (IY+FLAGS-Y) + NOW OUIPUT RESULT OF EXPRN 

547 CALL Z,POPSTR  $sIF STRING 

543 JP NZ» GUTPUT 3IF NUMBER 

549 LPT2: LD AB SHERE TO GUTPUT STRING: BC BYTES STARTING AT (DE) 
550 oR Cc’ ; ae 
551 DEC BC 

S52 "RET Z sIF NONE LEFT 

553 LO A, (DE) : 

554 INC DE —— . 

SoS RST WRCH 

556 JR LPT2 

S57 

S55& KETTER: sLIKE TERM?, BUT RETURNS Z FOR KET ()) AS WELL 
S59 CP “)- 

540 RET Z 

S61  TERM?: SRETURNS Z IF A IS NL OR “8° 

B62 SPRESERVES ABCOEHL 

S43 CF NL 

544 RET Z 

S65 CP 8s? 

S64 RET 

547 

S68 P_SEP: “SIF CURRENT CHARACTER NOT A PRINT SEPARATOR (°,°, “$° OR “°7) 
569 a 5 RETURNS NZ WITH HL = (CHADD), A = (HL). 
570 _ ‘ +IF A SEPARATOR, DEALS WITH IT & CHECKS FOR END OF PRINT 
571 ; SEQUENCE (NL, “:” OR “)*). IF END, RETURNS FROM CALLER: 
572 ; ELSE RETURNS PROPERLY WITH Z. IN EITHER CASE, HL t= 
573 ; (CHADD) *-> CHAR AFTER SEPARATOR: A t= (HL). 

574 RST IGN_SP 

575 Cr “37 

576 JR 2,LPPS 

577 cP *,° 

578 JR NZ» LPPS SUNLESS COMMA 

S79 


CALL INTPT? 


PRINT STATEMENT SYNTWO FAGE 4 


Loc On) CODE M STMT SOURCE STATEMENT ASM 5.9 
OOAA 2308 S80 JR Z,LPFS 
Q0AC SEO ban | ; LO A,COM_CC 
QOOAE S32 RST WRCH 
OOAF 1304 S23 JR LEPS 
. Sq 
QOB1 FE27 S85 LPPSs cP. *7re 
QOB3 co S86 RET NZ sIF NOT A SEPARATOR 
OOB4 Co45¢co0 R S87 CALL WRNL s{F ¢ 
QOR7 S83 LPPSs RST WXT_IS 
QOES coyvS500 R Seo CALL KETTER 
OOBB 2001 S90 : JK NZ, LPFG sUNLESS END OF SEQUENITE 
QoBD C1 S71 -POP BC : 
OOBE BF S72 LPPS&s CF A sT0 SET Z 
OOBF cy Sv3 RET 
S94 
S73 STRITO: ; SSTREAM ITEM, # NO.EXPRN 
S76 SPROCESSES A STREAM ITEM IF THERE IS UNE, AT (CHADD). 
S97 SENTER WITH A = CURRENT CHARACTER. 
S72. sRETURNS NC & MOVES (CHADD) FAST STREAM NO. IF A STREAM IfEM, 
: S99 3 RETURNS C & PRESERVES EVERYTHING EXCEPT F IF NOT. 
aaco FEZ3 600 CP “#? : 
OOr2 37 “601 ' SCF ‘ 
OORS co 602 RET NZ sIF NOT STREAM ITEM 
oorn4 403 RST NXT_IS j : 
ooCS CDOOOO X 604 CALL TEMG , 
oon A7 605 AND A 
oar? TO0000 R 606 CALL SET_SP 
oocr CDOOOO X 607 : CALL FIX_U1 
OOCF S2CBSC 603 : LO (STRMNM)3A sNOTE CURRENT STREAM NUMBER. 
OOus FE10 409 CP 14 : 
oon4 020000 X 610 IP NC, ERRO SIF STREAM NO. >= 16 
QOU7 COO000 X 611° CALL SELECT 
Oona A7 612 AND A 


OOUB . CP? 613 RET 


, INPUT STATEMENT SYNTWO PAGE 3 
Lac OBJ CODE M STMT SOURCE STATEMENT ASM 3.7 
) 614 #HEADING INPUT STATEMENT 
615 ; 
) 416 INPUT: SDEALS WITH INPUT STATEMENT, INFUT INFUT-SEQUENCE. 
617 STHE SYNTAX USED HERE [5 A UNIFICATIUN OF THAT OF. PRINT 
; 618 3 STATEMENTS (BUT FRINTING TO THE LOWER HALF OF THE TV 
) ‘ 61? 3 SCREEN INSTEAD UF THE URFFER HALF) WITH THAT OF THE 
620 3 TRADITIONAL INFUT FOLLOWED BY A LIST OF VARIAHLES. 
621 SAN IMPUT SEQUENCE IS MADE UP UF INFUT ITEMS & SEPARATORS IN 
} 622 H EXACTLY THE SAME WAY AS A PRINT SEHUENCE IS MADE OF 
623 H PRINT IVENS & SEPARATORS, & AN INFUT ITEM IS ESSENTIALLY 
G24 3 EITHER A PRINT ITEM (FOR PRINTING) OR A VARIABLE (FOR 
) ° oo 625 : 3 INFUTTING). 
626 : 30F COURSE, A VARIABLE IS ALREAUVY A FARTICULAR KING OF FRINT 
627 ; IVEM, $0 TO AVGID SYNTACTIC AMBIGUITY WE MAKE THE RULE 
7 623 3 THAT AN ITEM BEGINNING WITH A LETTER IS A VARIABLE TO BE 
&29 3 INFUT. TO RESTORE THE FULL GENERALITY OF PRINT IEMs, WE 
430 3 MAKE AN EXTRA SORT OF INPUT ITEM CONSISTING UF A FRINT 
j 631 3 SEQUENCE ENCLOSED IN ROUND BRACKETS. 
: 632. SAN ADITIONAL INFUT ITEM IS LINE FOLLOWED BY A STRING VARIABLE. 
. 633 3 THIS IS (OQ INFLENENT LINFUTs THE INFUT LINE IS TREATED AS 
» : _ 634 $ AN UNQUOTEL! STRING, TERMINATED BY NL (ONLY). 
635 SINPUT USES THE FOLLOWING SPECIAL MECHANISMS: : 
&36 3¢1) THE INFUT BUFFER IS NOT AT (B_LINE), Birt AT (WORKSP). 
> &37 5 (THIS [5 10 ALLOW INFUT STATEMENTS (N COMMAND LINES.) 
633 5 EDITWK MUST RECOGNIZE THIS FROM BIT INFLN OF (FLAGX). 
&39 $¢11) WHILE THE INFUT DATA IS BEING READ, THE OLD (CHADD) 
> : 640 3 (POINTING INTO THE INPUT STATEMENT) IS SAVEU IN THE 
641 3 MOVABLE VARIABLE (X_PTR), IN CASE THE INPLIT STATEMENT (3 
642 3 IN A COMMAND & GETS MOVED UP BY THE SETTING UP OF A NEW 
3 643 3 VARIABLE. 
644 $(III) EXCEPT FOR LINE INFUT, THE DATA IS TERMINATED BY NL, 
645 ; OR A PRINT COMMA, AT UR TAB CUNTROL., EDIT. LOOKS AFTER 
> 646 H THIS, USING BITS INPLN & LINPLN OF (FLAGX). 
é 447 3¢IV) IN CONTRAST WITH COMMAND LINES, IN INPUT DATA “:” NEVER 
643 3 GIVES K MODE. LISTCH DEALS WITH THIS. 
649 
: 650 sWE FIRST SET UF THE LOWER HALF OF THE SCREEN BY CLEARING IT 
él 3 CTQ THE BACKGROUND COLOUR]. WE SHOULD ALREADY HAVE , 
>» ; 632 7 4 (DF_SZ) = 2. : 
oon BACGSC 653 LOI A» (ARSFLG) SNOTE STREAM # IS AN INPUT STREAM NUMBER. 
OODF CHC7 654 SET 0.A 
>. _ OOEL S2C465C 655 LD (ARSFLG).A 
OOE4 CHQ00O X 654 CALL INTFT? 
OOE7 2808 457 JR Z,LIT3 
> OOE? SEOL 653 LD A» INPLST 
QOEB Ccoag00 X 659 CALL SELECT 
OOkE CHANG X 640 CALL CLLHS 
> OOF 4 Foséo201 461 LIT3: LO (LY-Y+TVFLAG),1.SHL.LHS 
OOFS COICcoal R 642 CALL ILSEG 
OOFS CDO000 X $43 CALL END? 
> QOOFEB EN4BS35C | 664 LD BC, (S_POSN) 
QOFF SAGBSC 665 LO A» (OF_SZ) 
0102 Bs 6646 CP B 
9 0103 2303 &67 JR C»LIT4 SUNLESS LOWER HALF HAS SWALLOWED UPPER HALF PRINT POSN 


INPUT STATEMENT SYNTWO PAGE & 


Loc OB! CONE M STMT SQURCE STATEMENT ASM 5.9 

O105 OEZ1 669 LO C,.LOULEN+1 H THEN (S_FUSN) !-> BEGINNING UF LUWER HALF 

0107 47 669 LO BBA 

O108 EN4sag8c 670° LITA: LO (SUPOSN), Bt 

O10 SEL? &71 LO Ay TV_LNS+1 

O1OE ?O &72 SUE B 

QO1LOF 328cSc 673 LO (SCR_CT).A 

O112 FOCROZS4 674 RES LHS, (1Y-Y+IrVFLAG) 

O116 Cnoo0dd X 475 CALL. SETCUR 

“O1L19 C30000 X 678 : JP CLLHS 
477 
473 I_WSEQs: SDEALS WITH INPUT SEQUENCE 

: 679 SAN INPUT ITEM IS A VARIABLE, A PPINT SEQUENCE ENCLOSED IN 

430 . H ROUND BRACKETS, OR ANY PRINT .sTEM OTHER THAN AN 
451 H EXPRESSION BEGINNING WITH A LETTER. 

O11C COPSEON R G82 LIQ2: CALL PUSEP . 

OLIF 25FB 433 UR Z,LIGz 

O121 FE23 484 CP “(7 ; ; 

Q123 200k 495 . dR NZ,LIGS SUNLESS BRACKETED PRINT SEQUENCE 

O12Z5 GES RST NXTUIS 

OLZG CD2FO0O R 687 a CALL PUSENR 

O129 428 RST IGNOSP 

O1LZA “FEZ? sy CP “>? 

o12c c20000 X 470 JP NZ,SYNERR 

O12F ; 691 RST NXT_LIS 

OAS cCsono2 R 692 JP LIR7 
493 

0133 FECA , 674 LIQas CP LINETK 

O1SS 2011 69S JR NZ,LIOQS2 : : 
EPG : SHERE FOR LINE STRING VARIABLE 

QL37 &97 RST NXT_LIS 

o133 CLOOOa X 492 ' CALL TEM1L 

OL3B FOICE37FE &99 SET LINFPLN, (1Y-Y+FLAGX) 

OLSF FLICBOL7S6 700 BIT. NO, (IY-Y+FLAGS) 

0142 C20000 X 7O1 JP NZ, SYNERR sIF NUMERIC VARIABLE 

O144 1s0n 7O2 JR LIGS4 | 

; 703 

o14e Cooooa X 704 LIQG2: CALL ALPHA? 

O14B D20A02 R 703 IP NCLIOG SUNLESS VARIABLE 

OL4E Cpe000 X 706 CALL TEM1 : 

O1Ls1 FOCE27BE 7QO7 RES LINPLN, ¢1Y-Y+FLAGX) 

OLSS CDpadGa X 708 \LIQ34: CALL INTFT? 

O1358 CAOnTOS R 7oO9 JP Z,LIN7 SIF CHECKING SYNTAX 

O1LSB COO000 X 710 CALL X2CALC 

QLUSE 217135C 7Al LO HL,FLAGX 

OL61 CBRG - 712 RES NO, (HL) ; 

01463 CBEE 713 SET INFLN, (HL) eat ; : 

O165 010100 714 LO Bo, 1 ' § SET BC TO # CHARS IN INITIAL LINE, VIZ 1 (NL) 

0148 CB7E 715 BIT LINFLN: (HL) ; 

OLGA 2008 716 JR NZ» LDS : s 

01é6c SARRSC yo Ae LD A, (FLAGS) 

OLGF E440 718 AND 1.SHL.NO 

O171 2002 : 71? JR NZ,LIO346 §° FUR NUMBER, 3 (QUOTES TOG) FOR STRING 

O173 QEOS 72 LO C,3 : ‘ 


O17S BS 721 LI@ads: OR CHL) 


INPUT STATEMENT 
Loc 


O176 77 
0177 

QO173 3400 
O17A 7? 
OL7H OF 
017C OF 
O17U 3005 
O1/F SE22 
OLS. 12 
O182 28 
0193 77 
oO184 225B5C 
O187 FDCE377E 
0188 202C 


o1sD 2ASDSC 
oO1vo 
QO1L1?1: 2A305C 
O1p4 


O17S = 219801 
O1vs ES 

O17? FOCHZOES 
O1;D 2204 
OLSF ED732305¢C 
O1A3 SAGISIC. 
O1LAG COO 
O1A9 = FOSG00FF 
O1AD CoHoOOoa 
O1b0 FUCBOLBE 
O1B4 co1402 

- O1LB7 S08 
O12 CuodOa 
O1BC FINS42200 
O1cod COUz102 
O103 2000 
O1cs Cooo0O 
O1cs ED4ES25¢ 
O1cc CLOOOO 
O1LCF 21715C 
O1n2 CBRAE 
O104 ° CR7E 
O16 CBRE 
o1os 2O1C 
O1DA El 

O1e El 

(oh 5 ale 223030 
O1DF El 

OLEO 225FSC 
O1E3 FOCBOLFE 
O1E7 Cu1402 
O1EA  2ASFSC 


<< 


R 


SYNTWO 
OBJ CODE M STMT SOURCE STATEMENT 


LIQSe&:: 


Lra4: 


LIQ43: 


LIh4as: 


LIQ44: 
LIQ4655 


LIQ473 


‘LO HL» LI4s 


PAGE 7 
ASM 5.9 


LD (HL),A 

RST COPYUP 

LO (HL NL 

LO AC 

RRA 

RRA 

JR NC LIG4 

LO A, BUOTE 

LOD (DE),A 

DEC HL 

LD (HL);A 

LO (KOCUR), HL 
BIT LINPLN, (LY-Y+FLAGX) 
HR NZ» LIGAS 


COPY TYPE OF (DEST) INTO REQLU TYPE FOR I/7P 
MAKE ROUM FOR INITIAL INPUT LINE 
DE -> 15T BYTE, HL -> LAST: WRITE E.Q.L. 


wn us ws 


IF NUMERIC 


LO HL, (CHADD) 
PUSH HL $SAVE (CHADD) POINTING INTG STALEMENT 
LD HL, (ERR_SPF) : 

FUSH HL SSAVE WLO (ERRLSP) 


NOW THE INFUT BUFFER IS PROPERLY SET UP AT (WORKSP), WITH 

3 BIT INPLN GF (FLAGX) SET & (KUCUR) CORRECT. 

STACK HAS SAVED VALUES OF (ERR.SP) (ON TOP) & (CHADD). 
ABORT EXIT WHILE CHECKING SYNTAX OF INPUT EXPRESSION 


PUSH HL 

BIT RETPOS, (1Y-Y+FLAGS2) 

JR Zs LIG4s IF SYNTAX ERROR TO CAUSE ABORT FROM INPUT ' 
LO (ERRSP), SP 


LD HL» (WORKSP) 

CALL DESLUG 

LO EAS ERR Ae 
CALL EDIT_K 

RES INIFT, (1Y-Y+FLAGS) 
CALL INPDAT + CHECK 
JR LIG4G6S 3 


sIN CASE HAVE ALREADY HAL SYNTAX ERROR 


SYNTAX & TYPE.GF EXPRN, 
TQ RETYPE 


ABORT TO LIG@43 IF WANT 


CALL EDIT_K sFOR LINE INPUT 
LD (1TY-Y¥+K_CUR+1),0 

CALL NOTKB? 

AIR NZ,LIQ47 

CALL ECHO 

LO BC, (ECHO_LE) 

CALL SETCUR | 

LO HL» FLAGX 

RES INPLN>» (HL) 

BIT LINFLN, (HL) 

RES LINPLN, (HL) 


CANCEL CURSOR 


$(SPOSNL) MOVED ON PAST ECHO 


JR NZ, LIG4S SFOR LINE INPUT 

POP HL SHL &= LIQ43 

PuP HL SHL f= GLO (ERRUSP) 

LO (ERR_SP), HL 

FOP HL 1HL. t= OLD (CHAD) 

LD (XP TR)sHL SAVE IN MOVABLE VARIABLE IN CASE SFACE MALIE FOR DES IN 


SET INTPT, (1Y- -~Y+ELAGS) 
CALL INFDAT 
LD HL (X_PTR) 


SHL ?= GOLD POLNIER {NIG INFUT STATEMENT 


INPUT STATEMENT 


Loc 


O1ED 
OLFL 
OLF4 


OLFS 
O1F9 
OLFD 
O1FE 
O2a0 
O201 
O202 
O205 
o208 


OZOA 
o20D 
a210 
0213 


O214 
O217 
OZ1A 
O21B 
of1u 
O21F 
O222 
OZ25 
O2246 
Q228 
O229 


022A 


O22! 

O2Z2E 
O22F 
Q230 


O231 
O234 
0235 
O23 
0237 
O233 


OZ397 


SYNTWO FAGE 8 
GE CODE M STMT SGURCE STATEMENT ASM 5.9 
FD3462600 776 LO (IY-Y+X_PTR+1),0 
22505C 777 LO (CHUADD). HL 
1817 778 JR LIG7 
779? 
780 Lig4es ;HERE FOR LINE INFUT 
2AG25C 781 LO HL.(SIKB0T) $sHL t-> 1 BYTE PAST NL 
EDSBG15C 782 LD DE,(WORKSP) $DE :-> BEGINNING OF LINE 
37 783 SCF 
EDS2 734 SBC HL, DE 
44 735 LD BH 
4p 7E6 LO GL 3BC t= LENGTH OF LINE (EXCLUUVING NL) 
cooo00 xX 787 CALL FSHSYR . é 
cooo00 =X) 788 CALL LET 
1803 ap JR LIZ 
790 
co4acoo R 791 Lie: CALL PLITEM 
CDVEQO R 792 LI@7: CALL P_SEP 
CAICOL R 793 JP Z,LIQZ 
Cc? 794 RET 
79S . 
796 INPULAT? sDEALS WITH INFUT DATA 
TI7 ;(WORESF) -> DATA 
793 sRIT NO OF (FLAGX) GIVES TYFE REQUIRED 
799 ¢BIT INTPT OF (FLAGS) SHOWS WHETHER TO CHECK SYNTAX GR MAKE THE 
BAO H ASSIGNMENT. 
BOL sIF LATA STARTS WITH “STOP’ TOKEN THEN RETURNS NATURALLY IF 
' 802 3 CHECKING SYNTAX, UR ABORTS IF EXECUTING. 
ZAGLSC B03 LO. HL, (WORKSP) . 
225050 04 LD (CHUADO),HL 3 (CHADD) #-> DATA 
B05 RST IGN_SP 
FEE2 BOS CP STOPTK 
2800 807 JR Z,LIDS 31F BEGINS STOP 
BA715C S08 LD A, (FLAGX) 
cLOOOO xX say CALL LTz2 
G10 RST IGN_SP 
FEOU S11 CP NL 
ce &12 RET Z 
S13 RST ERROR sSYNTAX ERROR - ENDS BEFORE NEWLINE. 
OB S14 DEFB 11 
615 
cpan0o xX 814 LIDS: CALL INTFT? ; 
ce S17 RET Z | SSYNTAX CHECKING “STOP- 
@13 ERRH: RST ERROR sERROR H, STOP IN INPUT 
10 S19 DEFB “H*-“A‘+9 
B20 : 
S21 NOTKB?s SRETURNS Z IF CURRENT CHANNEL IS KEYBOARL 
azz SPRESERVES BCDE 
ZASISC a23 LD HL, (CURCHL) 
23 24 ING HL 
23 s25 INC HL 
2 B24 INC HL 
23 827 INC HL 
7E B28 LD A, (HL) 
FE4B a29 cP ’K- 


INFUT STATEMENT SYNTWO ; PAGE 9 
Loc OkJ CODE M STMT SQURCE STATEMENT ASM 5.7 


o23B 8 6C9 S30 RET 


Sa 


COLOUR ETC 


Lac 


O23C. 


o023D 
o240 
a2Z4l 
o242 
0244 
0244 
o24ag 
O24A 


o240 
O24F 
o250 
O252 
o253 
o254 
0255 

0256 


O237 


O2Z59 


O25A 
O230 
O25E 


OZEF 


0262 * 


O243 
0266 
O2467 
O268 
O269 
O2Z6A 

26oR 


SYNTWO PAGE 10 
OBJ CODE M STMT SOURCE STAIEMENT ASM 3.9 
S31 ¥#HEADING COLOUR ETC 
439 
33 LGL2s RST NXT_IS ; : 
834 GRoCOL: SGRAPHICS COLUUR ‘ 
S35 PROCESSES SEQUENCE (POSSIBLY EMPTY) AT (CHAU) OF COLOUR 
836 3 IfEMS TERMINATED BY COMMAS CR SEMICOLONS., 
B37 sENTER WITH A = CURRENT CHAR. 
co4po2 R 833 CALL COLITO : 
De S37 RET C 3IF NOT A COLOUR ITEM 
840 R3T IGN USP 
FE2C 241 CP 7,” 
2SF6 S42 JR Z,LGL2 
FEB 843 CP “37 
2EF2 o44 JR Z»LGL2 
C30000 X 845 JP SYNERR ;COLOUR ITEM NOT TERMINATED BY COMMA OR SEMICOLON. 
844 
847 COLITO: jPROCESSES A COLOUR ITEM IF THERE IS OWE, AT (CH_ADD). 
S49 JENTER WITH A = CURRENT CHARACTER. 
849 RETURNS NO & MOVES (CHADD) PAST COLOUR IF A COLQUR ITEM, 
S50 3 RETURNS C & PRESERVES EVERYTHING EXCEPT F IF NOT. 
as ;WE ASSUME FOR THE PRESENT THAT THERE ARE 6 CONSECUTIVE TOKENS 
S52 3 FUREGROUND, BACKGROUND, FLASH, BRIGHT, GVERPRINT & INVERT, 
S33 3 & A COLQUR ITEM CONSISTS GF ONE OF THESE FOLLOWED BY A 
So4 3 NUMERICAL EXPRESSION. 
FED? 855 CP FGTOK . 
Ds S546 RET .C 31F CURRENT CHAR < COLOUR KEYWORDS 
FEDF : 857 CP INVTOK+1 
SF oo CCF . 
DS Soy RET Cc 3IF CURRENT CHAR > COLOUR KEYWORDS 
FS S40 PUSH AF , : 
S61 RST NXTWOIS 
Fi B62 — POP AF 
863 COLITM: sPROCESS COLOUR ITEM 
844 3(CHADD) —> COLOUR (NO. EXPRESSION) ; 
84645 SRETURNS NC,» WITH (CHADD) -> TERMINAIOR OF COLOUR 
B46 sA = KEYWORD 
D4cy B47 SUE FGTOK-FORECC $A #= CORRESPONDING CONTROL CHAR 
FS 845 PUSH AF 
B42 ; 3WANTS TO DEAL. WITH IT. 
CDOO0O X 870 CALL TEMG 
Fi 871 FOP AF 
A7 B72 AND A | : §TO RETURN C IF CHECKING SYNTAX 
Coho000 R 873 CALL SET_SP : 
FS B74 FLUSH 'AF 
CDOO0O X &75 CALL FIX_U1 
37 876 LD DLA sf 8= COLOUR 
Fi 277 FUP AF $A 2= CONTROL CHAR 
873 RST WRCH 
7A 879 LD A.D 
Bo RST WRCH 
cy So RET 
B52 
3623 TV_COL: ;PROCESS COLOUR COMPOSITE CHARACTER FOR TV OR PRINTER. 
824 SA = KEYBYTE, D = COLOUR, 


COLOUR ETC 


Lac 


0260 
O2Z4E 
O270 
0272 
O274 
0276 
0278 


o27A 
0278 
O27B 
o27u 
O27F 
oze0 
Ooze 

0283 
oze4 
o285 
0287 


0289 | 


028A 
o28D 


O2SF 
O270 
o270 
02970 
O22 
O294 
O29 
296 
O2F7 


O279 
O27A 
O2°B 
o2?D 
O29F 


SYNTWO 
OB! CODE M STNT SQURCE STATEMENT 


FAGE 11 
ASM 5.9 


D411 ass SUB FORECC+1 

CEOO Ba6 anc A,a sAt= 0,C FOR FORE, ELSE NC, O FoR BACK, we) 4 FOR OVER 

2010 S37 JR Z. COLOUR © SIF FORE OR BACK 

402 Sg SUB 2 

CEOO say ADL AO 3A == O FOR FLASH OR BRIGHT, CARRY SET FOR FLASH 

2854 Sra JR Z,HIFLSH 3IF FLASH OR BRIGHT 

FEO1 aol . cP 1 3A = 1 FOR INVERT, 2 FOR GVER 
Sv?2 XORINVE FALIUST (PFLAG) FOR XORING/INVERSION CODE IN D (O OR 1, ELSE 
ees H ERROR K). 
Ig sENTER WITH NZ FOR XORING, Z FOR INVERSION. 
B95 sCLEARS CARRY 

7A SIG LO A.D . 
ayv7 ASSERT (XUR_CH=0). AND. (INV CH=2) 

0601 ors LO B,O0000001B 

2004 Sv AIR NZ,»LXV2 SIF XORING 

07 200 RLCA 

O7 FOL RLCA 

0604 yo2 LO B, 000001008 

4F 9O3 LxXV28 LO CLA 

7A PO4 LO ALD | 

FEO2 905 CP 2 

30146 IOS JR NC. ERRE 

7? SO7 LO AC 

21915C 908 LOD HL.»PUFLAG : 

1333 soy JR LORS SMAKE (P_FLAG) RIGHT 
910 

‘ #11 COLOUR: FALLIUSTS CATTR_T)» (MASK_T) & (PLFLAG) FOR COLOUR Cove IN D 

912 3 (9 TO 9, ELSE ERROR kK) 
13 3D IS EITHER A COLGUR (0 To 7). OR TRANSPARENT (8), OR CONTRAST 
914 H (F). 
PLS 3“CUNTRAST” MEANS THAT THE COLQUR (FOREGROUND of BACKGROUNL) IS 
F1S 3 SET TO CONTRAST WIH THE EXISPING UTHER CULCUR (BACKGROUND 
P17 H OR FOREGROUND). THE CONTRASTING COLOUR IS BLACK FOR THE 
P1S 3 LIGHT COLWURS WHITE, YELLOW, CYAN & GREEN (FOR WHICH GREEN 
FAP H IS PRESENT). & WHITE FOR THE DARK COLOURS BLACK, BLUE, 
920 3 RED & MAGENTA (FOR WHICH GREEN IS ABSENT). 
Sal sENTER WITH C FOR FOREGROUND, NC FOR BACK. 
G22 iPRESERVES E, CLEARS CARRY 

7A V23 LO A.D 
V24 ASSERT (FOREG=0).ANQ. (BACKG=3) 
925 ASSERT GREEN=2 

0607 925 LO B,00000111B 

33805 927 JR C,LORS SIF FOREGROUND 

Q7 928 RLCA' 

07 92? RLCA 

Q7 3 RLUA 

0433 931 : Lo B,00111000B 
S32 LORS: sNOW B HAS 3 BITS SET FOR THE 3 RELEVANT BITS OF (ATTR_T) & 
933 H (MASK_T), ~ A 15 D ALLIGNED WITH B. 

4F 934 Lo c.A : 

7A Pas Lo 4,0 

FEOA S36 CP 10 

S302 937 JR C,LCOR4 

‘ 923 ERRK: RST ERROR SERROR Ky 


INVALIU COLOUR 


COLOUR ETC SYNTWO PAGE 12 


Loc OBJ COLE M STMT SQURCE STATEMEN1 ASM 5.9 ‘ 
O2A0 13 939 DEFB 19 
740 
a2zA1 218F5C P41 LOR4: LOD HL» ATTR_T 
O2ZA4 FEOs 942 CP 8 
O20 3308 943 AR CoLCR4SS SIF COLOURS CK 
: G44 sHERE FOR COLQURS & & $. . 
745 SFOR & (TRANSPARENT) WE LEAVE THE COLUURS AS THEY ARE, & FOR 9 
P44 3 (CONTRAST) WE REPLACE THE RELEVANT GNE BY THE CONTRAST 
947 H QF THE OTHER. 
OZAS 7E P43 LD A, (HL) 3A == (ATTR_T) 
ZA? 2207 949 JR Z,LCR44 sFOR COLOUR 8 
OZABy BO #50 oR B . 
OZAC ZF PSL CPL 
OZAL E624 a2 AND 00100100B 
PSS ‘ #NOW THE ONLY BIT OF A THAT CAN POSSIBLY BE LEFT SET IS THE 
V4 3 COMPLEMENT UF THE GREEN BIT FOR THE GROUND NOT BEING 
PSS $ ADJUSTED. 
O2AF 2301 WAG “JR Z,LCR43 31F CONTRASTING COLGUR IS BLACK 
2B1 73 V7 LD A,B : 
SSS LOCR43: #NOW A = O (FOR BLACK) OR B (FOR WHITE). 
O2B2 ° 4F 959 LOR44: LOCA , 
O2B3 79 60 LOR45: LO ALC 
OSB4 PEL ASSERT (MASK.T=ATTR_T+1). ANU. (F_FLAG=MASK_T+1) 
O2B4 COC7O2 R 942 CALL LORS IMAKE (ATTR_T) RIGHT 
O287 3EO7 (8 O3 LO A.7 : 
O2R9 BA DIh4 cP OD 
O2BA oF : 965 SBC ALA 3A GETS BIT 3 OF D IN ALL ITS S BiTS 
O2BB COC7O2 R 44 ‘CALL LCRS sMAKE (MASK_T) RIGHT 
O2SBE 967 ASSERT (F_CB=4). AND. (BUCF=6) 
O2KRE O7 963 RLCA 
O2BF O7 949 - RLCA 
0200 E4S0 979 AND 01010000B ‘ 
o2C2 47 P71 LD B.A 3B GETS 1 BIT SET FOR THE RELEVANI BIT OF (F_UFLAG) 
o2C3 3E0S 972 LD A,8 
0205 . BA 973 ce D 
206 oF S74 SEC ALA 3A s= -1 FOR CONTRAST, ELSE o 
975 3OROP THROUGH TO LORS TO MAKE (PFLAG) RIGHT 
976 LCRS: PSURROUTINE OF COLOUR 
977 FOR EACH SET BIT OF B, (HL) HAS ITS CORRESPONDING BIT REPLACED 
973 ; ; BY THE CORRESPONDING BIT OF A. 
979 SHL +8= 1, A t= B, 
. oo SCLEARS CARRY 
O2C7 AE | 98. XUR (HL) 
O20 AQ . PS2 AND B' 7 
O2Cy AE VBR XOR (HL) 
O2CA 77 PB4 LD (HL),A 
O2CB 23 9Es INC HL 
o2cc 78 PRS LO A,B . . 
o2zCD Cc? G27 RET 
735 ° ; 
?o? HIFLSH: FADIUST CATTR.T) & (MASK_T) FOR FLASH/HIGHLIGHT CODE IN D 
990 3 (OQ, 1 OR &S ELSE ERROR K). 
991 sENTER WITH C FOR FLASH, NC FOR HIGHLIGHT 


P92 SPRESERVES E, CLEARS CARRY. : 


COLOUR ETC 


Lac 


O2CE 
O2CF 
o2no 
O200 
O201 
O2ZD3 
o2b5 
OZDS 
Os 
OLD? 
OZBA 
O2EC 
O2DE 
O2ZEO 
OZE2 
OZER 


O2E3° 


OZESG 
OZE? 
OZEA 
OZER 
OZEC 
OZED 


OZEF: 


OZF2 
OSF4 
O2ZFG 
O2F3 
O2FR 
O2F9 
~O2FA 
OSFER 
O2FD 
O2FF 
Oo301 
O304 


ao305 
OBOE 
O303 
O30A 
oas0u 


O310 


1046 


SYNTWO FAGE 13 


OBJ COWE M STMT SQURCE STATEMENT “ ASM 5.9 
oF O93 SEC ALA $SET NZ FOR FLASH 
7A POA LO AL 
S95 ASSERT (FLASH=7).AND. (HILITE=6) 
OF D9 RREA 
0480 L997 LO By, 80H 
‘2003 998 JR NZ) LHH2 
OF 999 RRCA 
0640 1000 LD B,40H 
4F ' 1001 LHH2: LO GA 
7A 1002 LO ALD 
FEO? 1003 cP S 
2804 1004 JR Z)LHH3 sIF CODE IS “TRANSPARENT? | 
FEO2 1005 cr 2 
30BD 1004 JR NC, ERRK SUNLESS COVE IS “ON’ OR “OFF” 
79 1007 LHH3s LO AL 
1008 ASSERT MASK T=A1 TRUT+1 a 
21SFEC 1009 LO HL ATIR_T 
cnc702 R 1010 CALL LCR sMAKE (ATTR.T) RIGHT 
_ 79 1011 LD A.C 
OF P 1012 RRA 
OF 1013 RRCA 
OF 1014 RRA 
18L3 1015 JR LORS +MAKE (MASK_T) RIGHT 
1014 . 
1017 BORDER: $SET BURDER COLOUR TO COLOUR ON CALCTR STACK’ 
chooeo =X: 1018 CALL FIX 
FEOS « 10197 CF 
30A9 1020 JR NCL ERRK 3IF NOT A VALID COLQUR 
GFE 1021 pee (BORDPT) +A 
1022 SSERT (BACKG=3). AND. (FOREG=0) 
07 1023 area 
07 1024 RLCA 
07 1025 RLCA 
CHGF 1026 . BIT S.A 
2002 1027 JR NZ,LBRS . 
EEO? 1028 XOR 7 7FOREGROUND == WHITE IF DARK BORDER 
B2495C: 1027 LBRSs: LO (BORDCR),A 
ce 1030 RET 
1031 
1032 
LF 1033 RSET: RST IGN_SP sGET THE NEXT VALID CHAR AFTER THE RESET TOKEN. 
FE2A 103 CP vee SCOLD START? 
2026 1035 JR Nz» RSET2 3NO, JUMF. 
* cp2000 1034 CALL ® NXTLIS sYES, SKIP- PAST THE ASTERIS 
cCDOOadg =X 1037 CALL’ END? sIF NOT INTERPRETING, JUST oe FOR END OF 
1038 ; SSVTATEMENT AND RETURN. 
1029 
cy 1040 RET 
1041 
1042 RESALL: ;COLD START OF ALL DEVICES 
1042 3ZER0 OUT STREAM DATA — REINIT Sf STREAMS 
1044 SSTART W sy ee TO STREAM O 
1045 SCALLCCLOSE + 6 DR STsT fe 


sADD 2 TO HL 


COLOUR ETC SYNTWO : PAGE 14 


Loc OB! COLE M STMT SOURCE STATEMENT ' ASM 5.9 
1047 
1048 SHL = STREAM 0 
1049 SFOR I t= O TO 15 uO 
1050 3 BEGIN srapeteesstccat ; : 
1051 ' CALL Gos + ERS Tarte 
1052 3 HL + : 
1053 3 END 
1034 
one 7CALL BLOSCT 
105 
O311 SE10 he LD AL16 
O313 21165¢ 1058 Lo HL» STRMS+HIDSTRe2 7 
O316 CLOOOO X 1059 NXTSTR: ' CALL RSTSTR 
OsLy 23 1060 INC HL ; 
" O31A 23 1041 INC HL. 
OS1E 30 1042 DEC A 
Q310 OFS 1963 AR NZ.NXTSTR 
2Z1F 409 1044 Lo HL» BLOSCT f 
ES 1045 PUSH HL 
OSFE 1064 LO B, 254 : 
OES “1067 Rha Lo C1 83H sDON’T DE-SELELT CHUNKS 3 OR 7. 
Cs 1043 RAs PUSH Rt: : 
10000 1049 Lo BC, 0000H INO PARAMETERS SENT, NONE EXPECTED BACK. 
cs 1070 PUSH BC 3THIS INFORMATION SERVES AS FARAME SERS 
cs 1071 PUSH ° Bt .3. TO CALLUBANK.. 15.4 Pa, sen | 
O32 COHOSS 1072 CALL CALL._BANK SCALL CALL.BANK ROU SINE . 
O32F cy ' 1073 ‘RET ' 
1074 roe ae es RO a 
Q330 FE23 10735 RSET2: CP “He SSINGLE DEVICE? 
O332 2815 1074 JR Z RSETS a ' Jo) YES) UMP, 
O334 CHOo0O X 1077 CALL END? SNO) THEN MAKE SURE THE STATEMENT 
1073 3135 APPROFRIATLY ENCED, AND IF JUST CHECKING 
1079 ‘ SSYNTAX RETURN. 
O337 cy bree RET ; 
OSB 214C0C 10% LD HL, RESSCT WARM START ALL CURRENT DEVICES, 
O33B ES cee FUSH HL ok EN, ete Ate aah 
O33 OLFEFE 1033 LO BC, OFEFEH ; H 
SSF Cs 108 FUSH BC 
O340 010000 1065 LO BC,0000 
B43 cs LOHS PUSH BC: 
O344 cs 1037 PUSH BC ‘ f . vote WLR ge EY HA uote pb yen 
O34S ChoO6S 1083 CALL CALL. BANK 
0343 Cc? 10% RET 
; 1090 ) 
E7 1071 RSET3: RST ° NXT_IS sGET STREAM NUMBER AFTER THE: NUMBER SIGN. 4 
coooo0o X 1092 CALL TEMS sGET IT. fea des 
Cla00d X 1093 CALL = END? 
CDOOOO X 1074 CALL FIX_uU1 | ;GET STREAM # INTO A 
FE11 10975 CF 17 30 - 16 ARE VALID STREAM NUMBERS. 
3011 : 1094 IR NC, RSERR 3 : 
A7 1097 AND A ‘ 1 
FAGE0O2 R 109% JP M.RSERR 
27 1077 ADD ALA 


C616 1100 ADD A» (STRMS. AND. OFFH) +HIDISTR#2 


COLOUR ETC 


Lot 


OSSE 
OSSF 
O3461 
O342 
O363 
0264 
03465 
OSES 


0268 
O24 


O26A 
O3G 
OB4D 
OBGE 
O37 1 
O373 
O374 
O373 


OSE 


O32 . 


O35 
O397 


oa 
OZAR 
O3A4 
O2AS 
O2A7 
O3AS 

2AA 
O3AR 
OZAE 
O3B1 


OBJ CODE M STMT SQURCE 


4F 
265C 
SE 
23 


C21304 R 
N680 

a7 
EDSBRCSC 
19 

4a 

1400 
1E12 

19 

ES 

1SA1 . 


DE 
FEZA 
C2F803 oR 
E7 

cpoo00 =x 
FESC 
c20000 x 
CDOOCO xX 
2006 
cDia0g = =R 


CLONOO X 


1879 
CHOOOO X 
OB : 


CoGOd00 - X 
n21804 R 
ES 


1101 
1102 
1103 
1104 
1105 
1104 
1107 
110& 
110% 
1110 
1111 
1112 
1113 
1114 
1115 
1114 
1117 
1113 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1126 
Liz? 
1130 
1131 
1132 
ee 

24 
ee 
1134 
1137 
Lise 
112% 
1140 
1141 
1142 
1143 
1144 
1145 
1144 
1147 
1145 
1149 
1150 
1151 


AS2 


1153 
1154 


RSERR: 


RSET4 


NEWLE 


NIG: 


SYNTWO 


STATEMENT 


Vs 


Lo 
LD 


RST 
DEFB 


CP 


JP 


RST 


CALL 


CALL 


CALL. 


aie 


CALL» 
DEC? 
LO 


LO 
CALL 
JP 
PLISH 


LA 
H, STRMS. SHR.S 
E, (HL) 


NZ,RSET4 


ERROR 
“07 -"Alt+9 


0A 
QE, 


(SYSCON) 


NZ,SLVMIT 
NXT_IS 
TEM10 


a ? 
? 


NZ, SYNERR 
INTFT? 
NZ,NiIM 
SKIPIT 


ENL? 


JDEVER1 
POPSTR 
Rit 

AB 


. 
NZ,DEVER1L. 

(DE) 
110111118 
CA 
SRCHSC 
NC, De VERL 
HL. 


$3 YES, 
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sDE CONTAINS STREAM DATA. 
7ERROR O - INVALID STREAM. * 


sTEST FOR INTELLIGENT DEVICE 


“SRETURN IF NOT INTELLIGENT. 


SSUBTRACT GFF INTELLIGENT MARKER. 


sHL POINTS TO START OF RECORD. 
sFUT BANK # INTO EB. 
sHL FOINTS TO RESET ADDRESS. 


5 


7h A CALL_HANK TO THE RESET ADURESS. 


‘$GET THE NEXT VALID CHARACTER AFTER THE COMMAND. 


316 IT A TAPE COMMAND? 
SIF SC, DEAL WITH TAPES..AS BEFORE. 
$GET DEVICE SPEC... esta Ae Sing thas espa 


317 SHUULD BE A COMMA, 

SERROR IF NOT. cue ie 

Ss INTERPRETING? 

LIMP 

3NQ, SKIP OVER PARAMETERS IN THE STATEMENT 
SWHICH ARE TO BE HANDLED BY ROUTINES IN THE 
sBLIS EXPANSION UNIT. 


RETURN. 


SGET DEVICE SPEC. 
+ STRING LENGTH MUST BE, 1. te Beds oe 


3N0, ERROR J - INVALID DEVICE SPEC. 


ee es CO es ce 


3A = DEVICE SPEC (CAPITAL LETTER) 
SDOES THE DEVICE IN REGISTER ( EXIS1? 
iNQ, PROCLAIM ERROR. 
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Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
111400 1155 Lo DE, 14H 
19 11546 Aun HL» DE 
7E 1157 Lo A, (HL) 
CB4F 1158 BIT 1,A 
OSB? CALEO4 FR 1159 uP Z,DUEVERI 
O2BG  E1 1140 Pur HL 
O2ED ER 1141 EX. DE. HL SAVE POINTER TO THE DEVICES DEFINED BANK 
11462 + CHUNKS. 
O3BE CIGAO4 R 1143 CALL FPASSEM PASS PARAMETERS TO BEU DEVICE, 
o3C1 EB 1164 EX DE. HL TRESTORE POINTER TO fHE DEVICES OEFINED 
11465 . 3 BANK CHUNES. 
BA745C 1146 Lo A, (TALDR) SWHICH COMMAND ARE WE GEALING WITH? 
A7 1147 AND a SSAVE = 0, LOAD = 1, VERIFY = 2, MERGE = 3, 
FEOO 1143 cP OOH ; 
BE24 1149 JR C. SAVETK ISAVE? JUMP. 
| 2828 1170 UR Z, LOADTK SLOAD? JUMP. 
C46D4 1171 aun A,OD4H }ELSE, GET APPROPRIATE TOKEN FOR VERIFY oR 
4F 1172 Lo CA MERGE, 
cs 1173 SETUP: PUSH BC STOKEN FOR COMMAND IS FARAMETER TO BUS 
. 4174 . EXPANSION UNIT CODE FOR HANLILING SISK LIKE 
1175 Lo [hy CHL) GET BANK #. 
1174 Lo E, SH : 
1177 Lo BC, OOOCH 1GET ADDRESS WITHIN BANK OF ROUTINE TO HANDLE 
1178 ann HL HC sOISK LIKE COMMANDS, 
1179 LD C, (HL) ‘i 
a0 1180 INC HL. 
OZ? 44 ss E-31 Lu B, (HL) , 
osDA CS 1182 PUSH BIC : SPARAMETERS TO CALL_UBANK ROUTINE INCLUDE 
re) B) = a A 1183 PUSH DE THANK # AND HORIZONTAL SELECT SERVE AS bbb be rium. 
1184 ; $ MORE PARAMETERS TO CALL BANE. 
O200 2A655C 1165 LD HL» (STKEND) tRESTORE # OF PARAMETERS TO BE PASSED, 
O30F 28 1186 DEC HI. 
O3EO 4E 1187 Lo C, (HL) 
OFE1 oc 1188 INC c sALD 1 FOR COMMAND TOKEN PARAMETER. 
OSE2 226S5C 4189 LO (STKEND) » HL 
O3E5 0400 1190 Lo B,0 
O3E7 cS 1171 PUSH BC 'SERVES AS A FARAMETER TO CALL BANK, 
O3ES.  O10000 1192 LD HC, QQQ0H 3 OF PARAMETERS EXPECTED BACK (0) ALSO 
1193 : $ SERVES AS PARAMETER TO CALL BANK. ' 
OSER CS 1194 PUSH BC 
OSEC copo4Es 1195 CALL CALL_BANK 3CALL CALLUBANK ROUTINE 
1194 
O3EF ce 1197 RET 
1198 . 
O3FO  OEFS 119% SAVETK: — toe C.0FS8H 3GET SAVE TOKEN. 
OSF2 1S0B 1200 JR SETUP . 
1201 
O3F4  OEFEF 1202 LOADTK: Lu C,OEFH 3GET LOAD TOKEN. 
O3F& 1807 1203 JR SETUP 
1204 y 
O3FS Fi - 1205 SLYMIT: POP AF IDISCARD RETURN ADDRESS TO MIDDLE OF SYNTAX 
1204 + LOOP, 


OSF? O1LABO1 1207 LO BC, SLVM SBANK SWITCH TO DEAL WITH TAPES AS IN SPECTRUM. 
OsFc °CS 1208 PUSH BC 7 


COLOUR ETC 


Luc 


O3FD 
0400 
O401 
0404 
0405 
04046 
0409 
0408 
040c 


O40F 
0412 


0413 


0416, 


O413 
O419 


O41A 


O44” 


O41F 


0422 


0423 
O424 
0424 
0423 
O4ZA 
o42c 
O4SE 
O430 
O43) 
O433 
0435 
0437 
043A 
0430 
O43E 
O43F 
O44. 
0442 
0443 
0445 
0447 
O44? 
O44A 
0448 
o44n 
O44F 


0452 


0454 . 


OBS CODE M 
O1FEFE 

Cs 

010000 

cs 


2007 
COUOGS 


cnoo0o x 
cy? 


CDOVOFD 
1SF7 


FEOU 


ES 


2B 


STMT 


20? 
1210 
1211 


1Z12 


1213 


1214 
1215 
1214 
1217 
1213 
1219 
1220 
L221 
1222 
1223 
1224 
225 
1224 
1227 
122 


1229 


1249 
1250 
1251 
1252 
1253 

254 
1255 
1254 
1257 

253 

259 
12460 
1261 
1262 


SYNTWO 
SOURCE STATEMENT 
Lp BC, OFEFEH 
PUSH «BC 
Lo EC, OOOOH 
PUSH BC 
PUSH = BE 
Lo A, (VIDMOD) 
AND A 
JR NZ,D1SP2 
CALL ~~ CALL_BANK 
DISPis CALL END? 
RET 
DISP2: CALL  CALL_VBANK 
JR DISP1 
LEVER: RST 
DEFB “UI RtATED 
SKIPIT: LD A, (AKSFLG) 
RES 1,A 
LO (ARSFLG).A 
PUSH BC . 
RST IGN_SP 
SKIP: cP 7" 
JR Z,SKP 
cP eur 
JR Z+SKP 
cP NL 
JR Z,SKP 
RST NXT_IS 
JR SKIP 
SKPt cP v3 


JR NZ, SKPO 
LO A, (ARSFLG) 
BIT 1,A°- 
JKONZ,SKP2 
SKPO: PUSH HL 
LO B.S 
SKPLs DEC HL 
LO A» (HL) 
CF OEH 
AR Z,35KP3 
DINZ SEP 1 
FOP HL 
RST IGNOSF 
Cr vue 
JR NZ, SKS 
LO A, (ARSFLG) 
BIT 1,A. 
JR NZ. SKP4 
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FANNOUNCE TO THE CALL_BANK ROUTINE THAT 
3 NO PARAMETERS WILL BE PASSED TO OR 
+ EXPECTED BACK FROM THE TAPE ROUTINE 


3 IN THE HOME ROM EXTENTION. 


SIF JUST CHECKING SYNTAX, FOLLOW A DIFFERENT 
§ COURSE OF ACTIUN VIA THE ENO? ROWTINE. 
SIF EXECUTING, GO ON TO THE ENDSTT ROUTINE. 


‘s EXTENTION, 


SERRUR J - INVALID DEVICE. 


3BIT O OF ARSFLG DENOTES IN MIDULE OF STRING 
$ EXPRESSION IF SET, AND NOT IN MIDOLE OF 
i STRING EXPRESSION IF NOT. 


we 


+END GF STATEMENT? 
sYES, ALL DONE, 
sNEW LINE? 

+YES, ALL DCNE. 
3NG, KEEP GOING 
3NO, KEEP GOING 


jMAKE SURE WE ARE DEALING WITH A REAL 
3 CUMMA (3A) OR END GF .LINE (OD) AND 

3 NOT ITS SINCLAIR VALUE IN THE MIDDLE 
§ OF THE FLOATING FOINT FORM OF A 

3 NUMERICAL EXPRESSION, 


€ 
» 
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LOC} =6OBJ CODE M STMT SOURCE STATEMENT ASM 5.¢ 
0456 CBCF 1243 SET 1.A . 
o462 gsacesc 12464 LO (ARSFLG).A 
O45B 1808 1265 JR SEP? 
O45D CBSE 12464 SkKP6: RES 1.€A 
O45F 32C45C — 1247 LD (ARSFLG).A : 
0462 1802 1243 JR SKE2 
0464 Cl 249 SKPSs PUP BC SRESTORE PLACE. HOLDERS. 
0465 cP 1270 RET #CHADD ALIGNED ON ENU OF STATEMENT. 
0466 El 1271 SKS: POF HL . 
Q447 «~E? 1272 SKP2: RST NXT_LIS sHAVEN’T YET FOUND THE REAL ENL OF 
0468 188A 1273 JR SKIP $ STATEMENT. KEEP GOING. 
. 1274 : 
0460 O1FEFE 275 FASSEM: : Lu BC, OFEFEH 7PUSH PARAMETERS TO BEU DEVICE GN MACHINE 
0440 = CDeWS4 1274 CALL BANK ENABLE 5 STACK, ‘ 
0470 = CLOzOF 1277 CALL FASSING 7 ; Sees 
0473 O100FF 1278 LD BC, OFFOOH 
0476 cDrre4 1277 CALL BANK_ENABLE 
1280 —RETS os 
0479 = O4CF 1231 CAT: Lo B, OCFH 
047B 1808 1282 UR DLC 
0470 -O4D0 1283 FORMAT: Lo B, ODOH - $SAVE TOKEN FOR FORMAT COMMAND 
Ou ZF 1804 2S4 JR OL : 
1285 
0431 0601 1286 MOVE: Lo B,OD1H $SAVE TOKEN FOR MOVE COMMAND 
O4ss 1802 287 wR DLC 
. 1288 
O4s5 a6pz2 ° 1z8? ERASE: Lo B, ODZH SSAVE TOKEN FOR ERASE COMMAND 
1290 . 
0487 Cnhoooo xX 1271 DLC: CALL INTPT? 3 INTERPRETING? 
O42 2006. 1zZ92 JR NZ,TILC1 3YES, JUMP. 
o4ec cCOhIAO4 = R 129 CALL SKIPIT sCAN’T CHECK MUCH SYNTAX, NEED TO BE IN 
1274 SRUN-TIME TO DO THAT. : 
O4SF cnooodgd xX 1295 CALL END? SRETURN. 
1296 ; oo 
0492 .C31804 R 1297 DLCi: JP DEVERI sD) ; 
1278 3 PUSH Bo SSAVE COMMAND TOKEN 
1277 3 CALL POPSTR — GET DEVICE SPEC. 
1800 3 DEC BC SLENGIH OF SIFRING SHQULD BE 1 
1301 3 Lu A.B : 
ws02 3 UR c 
1303 3 
1304 3 JR Nz, DLCs 
1305 63 RST ERKOR sERROR F ~ INVALID SPECIFIER. 
1306 3 DEFB ° 14 
1207 sDLCS: Lo A, (DE) 
isos 3 AND 110111118 
1207 3 Lo CA 7A = DEVICE SPEC (CAPITAL LETTER) 
1310 6¢ CALL SRCHSC sIMES THIS DEVICE EXIST? ( 
1311063 JF NC, DEVERR 3NO, ERROR J - INVALID DEVICE. 
1312 3° FUSH HL 
1313 3 Lo DE,14H r 
1314 3 ano HL, DE 
1315 3 Lo A» (HL) ; 
131603 BIT 1,A ; ; ¢ 


COLOUR ETC 


Loc OBJ CODE M SMT SUUIRCE STATEMENT 


‘0495 010C00 
0493 Oo? 
O4F?PD 4E 
Q4VA 23 
O4°H 44 
a49r cs 
O47D us 
O47E — SAGSSIC 
OAAL 2k 
O4AZ 4E 
O4As oc 
O4A4 22655C 
-O4A7 9600 . 
O4A9 cs : 
O4AA 010000 
O4AD cs 
OFAE CUD0ES 
O4B1 Cy 
O4k2 CF 
O4B3 12 


1317 
1313 
1319 
320 
1321 
1322 
1223 
1324 
325 
132 


sah ate 
1327 
1323 
1g29 
330 
S31 


1332 


MAA pppEE AHH ASDA w 
he COGN PU She oo 


GY 0) 02 0) 82 10 0) Od fo td od oO oe 


SYNTWO 


we ve us 


we ve we ve we 


LEVERR: 


uP 
PoP 
EX 


Z,DEVERL 
HL. 
DE. HL 


PASSEM 
QE, HL 


DE 

C,B 

BC 

D, (HL) 
E. SSH 
I, OOOCH 
HL.» BC 


HL.» (STKEND) 
HL. 
C, (HL) 

Cc 
(STKEND)» HL 
B,0 

BC 

BC, 0000H: 
BC 
CALL_BANK 


RST ERROR 
1 IRATE 
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SAVE POINTER To THE DEVICES DEFINED BANK 
pass PARAMETERS TO BEU DEVICE. 

bail hatbe FOINTER TO THE DEVICES GEFINED BANK 
RESTORE COMMAND TOKEN. 

i 


USH LAST PARAMETERS.ONTO THE MACHINE STACK. 
JET BANK #. 

SDON’T DE-SELEC? CCUINKS 3 OR 7. 

SAND ADURESS WITHIN BANK OF ROUTINE 1Q HANDLE 


 $0ISK LIKE COMMANDS. 


sPASS PARAMETERS TO CALL_BANK ROUTINE VIA 
SRANK # AND HORTZONTAL SELECT ARE MORE 

3 FARAMETERS TO CALL_BANK. 

SRESTORE # UF PARAMETERS TO BE PASSED, 


,ADD 1 FOR COMMAND TOKEN PARAMETER. 


SERVES AS A PARAMETER TO CALL_BANK. 

# UF PARAMETERS EXPECTED BALK (0) ALSO 
SERVES AS A PARAMETEK TO CALL_BANK. 

CALL CALL-BANK ROUTINE. 


. 
7 
2 
? 
ry 
, 
2 
? 


sERROR J - INVALID DEVICE 


GRAPHICS GRAPHS PAGE 1 
Lac OBJ CODE M STMT SOURCE STATEMENT ASM 3.9 


1 #HEALING GRAPHICS 
419 #LIST ON 


420 GLOBAL PLOT, GET_XY, DRAW, CIRCLE, F_PNT 
421. GLUBAL SCRKMBL, PLOTEC, DRAW L. DRAWLN 
22 
423 EXTERNAL RLATTS: ATTBYT , $10.1 ee 
424 EXTERNAL SELECT sEDIT 
425 EXTERNAL ENU?, TEMS, SYNERR»FIX_U,FIXUL , #SYNTAX 
4246 EXTERNAL EXPRN, INTPT? sEXFPRN 
427 EXTERNAL FF2#A,STK_A SINGUT | 
423 
: , 429 F eos? ae . 
430 SCRMBL: ' $HL *-> BYTE IN DISPLAY FILE FOR PIXEL (C,B)$ A t= BIT NO. IN 
431 BYTE (0 FOR LEFT HAND = MS END. 1 FOR RIGHT HAND = LS END) 


a 
32 


PRESERVES DE 


? 
433 3 (TV_LNS-2) #&-1-B 
434 5 = 2 BITS FOR BLOCK \ 3 BITS FOR LINE \. 3 BITS FOR SCAN 
435 3 C = 5 BITS FOR COLUMN ; “ \ 3 BITS FOR DOT 
436 3 & WE WANT : : 
437. ; H t= O10 \ BLOCK \ SCAN 
4:33 3 Lo] LINE-\ COLUMN 
‘439 ; H A t= 0000 \ fOT 
0000 Z3EAF 440 LD Ar (TV_LLNS—2) #8—1 
0002 =F 441 SUB B aoe 
0003 DAGFO2 R 442 JP C,ERRB 3IF B TOO BIG ‘ 
o00g 47 443 LO BA 
0007 AT ' 444 ANL A ae 
o00e = 1F 445 RRA ; 7 ; 
0009 327 | 444 SCF 
Q00R IF 447 RRA 
QOOR AZ 443 ANE A 
OooOr 1F 449° : RRA 
~ ooon AS 450 XOR B 
- OOOE | E&FS 451 AND 11111000B_ 
0010 =A 452 XOK B 
OO11 4&7 453 LO HA 
oo12  =79 454 : LO ALC 
0013 O07 455 RLCA 
oo14 07 454 RLCA 
oo15 a7 45:7 RLCA 3A t= LS 2 BITS OF COLUMN \ DOT \ MS 3 BITS OF COLUMN 
0016 AS 453 XOR B ; : 
OO17 E6C7 45? AND 11000111B 
“0019 =AB 460 XOR B 
oO1a 07 441 RLCA’ 
OO1B O07 462 RLCA 
Q01C Fe 463 LD'LLA 
ooO1D 8679 464 LO AC 
QOLE E607 465 AND 00000111B 
0020 «CP? 466 RET 
4G7 
462 FLPNT: : 
“Ab? sRUN-TIME ACTION FOR POINT. 


470 +COCROS ARE ON STACK, AS FUR PLOT. 
oo2Zz1 CUSLION R 471 CALL GET_XY : 


GRAFHICS 


Lor 


0024 
0027 
onze 
O029 
OO2ZA 
O002B 


0020 
OO2F 


0032 
0035 
033 


OOH 
OO3F 
On42 
O043 
Oo044g 
0046 
0047 
004? 
Qd4A 
004B 
004E 
0050 
0032 
oo0s2 
a0s5 
0057 
aoss 
aos? 
QOSA 


.OOsD 
0060 
O61 
042 
0065 
0066 
0057 


GRAFHS ‘ . . PAGE 2 
OBJ CODE M STMT SOURCE STATEMENT ASM 3.9 
cnee0o R 4/2 CALL SCRMBL 
47 473 LO BLA 3B s= DOT NO. 
o4 474 INC B 
7é 4753 LD A, (HL) 
Q7 476 LFP2: RLCA 
10FD 477 DINZ LFP2 
473 SNOW A HAS REWUIRED BIT IN BIT O 
E4O1 479 AND 1 ; 
C30000 X 480 JF STKLA 
S1 
432 PLOTS PLOT X,Y¥s8 SET PIXEL (X,Y) 
cos000 R 483 CALL GET_XY 
CusBoO R 48 CALL PLOTBC 
c30000 X 485 JP RLATTS 
4B6 
487 PLOTBC: 3DEAL WITH PIXEL AT (C,B) IF PLOT OR DRAW 
453 SSE (COORDS) = Hc, 
489 STHERE ARE 4 GFPTIONS, DEPENDING ON BITS XOR_CH & INV_CH OF 
499 3 (PFLAG): 
4F1 3 XOR_CH = 0, INV_CH = O: SET BIT C°PLOT‘) 
4v2 3 XOR_CH = 0, INVIIGH = 1: RESET BIT C’UNPLOT‘] 
4AY3 3 XOR_CH = 1, INV_CH = O: INVERT BIT ; 
474 3 XOR_CH = 1. INV_CH = 1: LEAVE BIT C’MOVE’J 
ED437D5C AIS LO (COORDS), BC 
cpo00a R 494 CALL SCRMEL 
47 407 LD BLA ; 7 
O4 : 473 INC B ' 
SEFE AG9 LO A,ALLL1110B 
OF S00 LPH2: RRA 
10FD SOL D.INZ LPB2 
47 S02 LD BA 3B t= ALL 1S EXCEPT A O IN DOT’TH BIT 
7E S03 LO A. (HL) 
FO4ES57 S04 LO C, (IY-Y+P_FLAG) 
CB41 becl @ bac} BIT XOR_CH,C 
2001 S06 JR NZ,LPBS 
AQ S07 AND & $IF NOT XORING THEN DELETE OLD BIT 
CBS1 S08 LPBS: BIT INV_CH,C 
2002 S09 JR NZ,LPB4 s$IF EITHER UNPLOT UR MOVE 
AS S10 XOR B ; 
ZF Sai CPL i \ ee sty is ce ee) 
77 S12 LPB4: LO (HL),A . 
C320000 X Sis JP ACTRYT 
14 ' ; 
S15 GET_XY: an 3POP A PAIR OF 1-BYTE NUMBERS TO BC, SET D = SIGN OF B 
sis 3 (+1 OR -1), E& = SIGN OF C, 
S17 3TOP GOES TO B, 2ND FROM TOP GOES TO Cc. 
S18 SSMASHES THE ALTERNATE BANK GF REGISTERS 
CO4A0O R Si? CALL LGXS 
47 S20 LD BLA 
cs S21 PUSH BC. 
CD4A00 R S22 CALL LGXS 
a9 S23 LO EC : . bg 
Ci 524 POP BC 
51 925 LD D.C 


GRAFHICS GRAPHS PAGE 3 


LAC Ob CODE M STMT SOURCE STATEMENT ASM 5.9 
00683 4F w26 LO C,A 
069 cy S27 RET 
S23 
S29 LGXSs sSUBKOUTINE TO POP NUMBER TO A, SIGN TO C. 
Q06A ims tleleyere) X S30 CALL FP2A ‘ 
006D DA4F02 R 5391 JP C,ERRE 
0070 QEO1 S32 LD C,1 
0072 C3 S33 RET Z 
0073 OEFF a34 tO C,-1 


0075 C9 S35 RET 


GRAPHICS GRAPHS PAGE 4 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
526 #EJECT 
537 
S38 CIRCLE: sHERE TO DEAL WITH END OF CIRCLE STATEMENT WHEN CHECKING 
S39 ; SYNTAX OR RUNNING. 
S40 3(CH_ADD) -> TERMINATOR OF Y-COORDINATE OF CENTRE. ; 
S41 3S") X» Vs XE, YE, DX, DY & THESA ARE EXPLAINED IN DUI & DC2.. 
0076 542 : RST IGN_SP 
0077) FE2C 543 CP 4" 
0079 Cz0000° XxX 544 JP NZ» SYNERK 
o07C 545 RST NXT_IS 
oo7D «cha000 =X «(546 CALL TEM6 
oos0 cboo00) =X «547 CALL END? 
54% $WE NOW HAVE ON TOP OF THE STACK THE COORDINATES XC & YC OF THE 
549 ; CENTRE, & (GN TOP) THE RADIUS R. 
0083 550 RST CALCTR ‘ 
ooe4 = 2A 551 DEFB ABS sMAKE R +VE. 
oosS = 3D S52 DEFB FLOAT 
0084 33 553 DEFB QUIT 
0087 7E / 554. LO As (HL) : 
oog8 FES1 555 UP 81H 
oOgA =: 3005 S56 _ JR NC. LCE2 ‘ 
357 +IF R < 1 WE JUST DU PLOT XC,YC 
O08C 553 RST CALCTR 
oosD 02 559 DEFB LOSE 
OOSE =. 38 540 DEFB GUIT ‘ 
OOSF 18AL 541 JR PLOT 
' 562 
oovt 543 LCE2: RST CALCTR 
0072 AB 544 DEFB CONST+3 sPI/2 
00973 «38 565 DEFB QUIT 
0074 = 3483 S&s LD (HL),83H = $TOP OF STACK t= 2#PI 
00% 547 © RST CALCTR 
0097) CS S63 DEFB COPY+S sMEMORY S t= ZePI FUR THETA 
0098 | 02 569 DEFB LOSE 
oo797 = 38 570 DEFB Wit 
oov7A CDD301 R 571 CALL C1 
oo9n CS w/72 PUSH 8C 
OOFE 573 RST CALCTR #xXC, YC, R ON STACK 
OOPF = 31. 574 DEFB GUP 
OoAO £1 575 DEFE MEMORY+i 3S" 
OOAL 04 S76 UEFB TIMES sR¥S" = 1/2 * INITIAL DY 
OOAZ 38 577 DEFB QUIT $XC.YC»R»DY/2 
0OAS | VE 578 LO A, (HL) 
OOA4 - FESO S79 CP 80H 
OOAE —- 3008 5a JR NC» LCE . 
S81 sIF INITIAL \DY\ < 1 WE DO PLOT XC,YC INSTEAD 
OOAS 582 RST CALCTR 
O0Ay 02 S33 DEFB LOSE sDY/2 
OOAA 02 534 DEFB LOSE #R - 
OOAR 638 S35 DEFB QUIT +xXC.YC 
ooac C1 5a4 POP BC 
ooan §=6C33Z00, R587 JP PLOT 
see 


QOORO, S89 LCES: RST CALCTR $XC,YC,R»ReS" - 


GRAPHICS GRAFHS 


Lor 


OOBL 
OOEZ 
QOES 
QOB4 
OOBS 
QOH. 
O0R7 
OORBS 
OOnD 
OOBA 
OORB 
OORT 
QOERD 
OOBRE 
OOBF 
oord 
OotL 
Oot? 
oors 
O0C4 
O07 
OaCA 


OOCB - 


ooccr 


OBJ COVE M STMT SOURCE STATEMENT 


Cl 617 POP BC 
C374601 R 618 JP DC2 


PAGE 5 
ASM 5.9 


C2 S70 DEFB COPY+2 sMEMORY 2 = DY/2 

O1 S91 DEFE EXCH 

co S92 DEFB CORPY+0 sMEMORY O '= R, TEMPURARILY - Pag 
O2 93 DEFB LOSE 3XC0,YC,ReS" 

a3 o74 DEFB ‘SUB sTUP t= YC-R#S" = YE = INITIAL Y 

Ol Seo DEFB EXCH t : ' ae ’ 
EO SVs O&LFB MEMORY+O sYE,XC.R: 

OF S97 DEFB ALL sTOP s= XC+R = XE = INITIAL X 

co 93 DEFER COPY+O sMEMORY © &= XE, VEMPORARILY 

O1 Sv? , DEFB EXCH 3XE¥YE 

31 500 LEFB OUP 

EO 601 LEFR MEMORY+0 , . . 
1 602 DeErFB EXCH 3XE,YE,X+¥ fe a as ee ee. ; : " 
31 403 DEFB DLP ; 

EQ 604 DEFB MEMORY+O 3XE,YE»X»V»VaX 

AQ 605 DEFR CONST+0O 30 - 

C1 606 ‘DEFB COPY+1 sMEMURY 1 = O = INITIAL DX 

O2 407 DEF LOSE 

38 4603 DEFB QUIT : 

. FD3462 _ 609 INU CIY-Y+MEMBOT+10) sMEMORY 2 = DY (INSTEAD OF DY/2) } 
CHOOda xX 610 CALL FIX U1 , 

46F 611 LOLA sL &= X oo 

ES 612 PUSH HL : 

CnooaYg X 613 CALL FIX_U1 

El 614 POP HL 

&7 415 .LD HA SH s= Y 

22705C' 614 LO (LOCRDS)»HL 


eoteu 


- 


~ GRAPHICS 


PAGE 6 
ASM 35.9 


2 


TO DEAL WITH END OF DRAW STATEMENT, CHECKING SYNTAX OR 


RUNNING. 
ADD) -> TERMINATOR OF Y~-COOKUINATE 


SIF ANGLE THETA PRESENT 
SELSE JUST DRAW STRAIGHT LINE 


sNOW STACK HAS RELATIVE COORDINATES XR & YR» & ANGLE THETA. 


; GRAPHS 
Loc OBJ CODE M STMT SOURCE STATEMENT 

619 +#EJECT 

620 

621 DRAW: s HERE 

622 3 

623 3 (CHL 
oons &24 RST IGN SP 
OO Ly? FE2C 425 cP ’,? 
“OODB 2304 . 625 HR Z,LOW2 
oonn CLO000 X 627 CALL END? 
OOEO c3cnol R $2 IP DR LRA 

629 
OOE2- 630 LOW2s RST NXT_IS 
OOk.4 CD0000 X 631 CALL TEMG 
QOE7 ims ele lale le) x 22 CALL ENLr? 

433 : 
QOEA &34 ST CALUCTR 
OOER cs O35 DEFB COPY+S 
QOOEC A2 6245 “DEFB CONST+2 
OOED 04 637 DEFB TIMES 
QOEE 1F 633 DEFB SIN 
OOEF ~~ 31 439 DEFB DUP 
OaFO 30 é40 DEFB ZERO? 
OOF 1 30 641 DEFB NOT 
OOF2 ag 642 DEFB LF JUMP 
OOF 06 643 DEFB LOW25-% 
OOF 4 O2 S44 DEFB LOSE 
OOF S 3 : 6453 DEFB QUIT 
OOF ES C3cpo1 R 644 JP DRORA 

647 
OOF? co 648 LDW25: DEFB CorY+0 
OOFA O2 649 - DEFB LOSE 
OOFB Ci &50 DEFB COPY+1 
QOOFC O2 éO1 DEFB LOSE 
OOF LI 31 652 DEFB DUP 
OOFE 2 653 DEFB ABS 
GOFF El 654 DEFB MEMORY+1 
o1d00 Oo1 655 DEFB EXCH 
Q101 El 654 DEFER MEMORY+1 
o102 ZA 657 DerFB AHS 
O103 OF 458 DEFER ADD 
a104 EQ 659 CEFB MEMORY+0 
O10 OS 640 DEFB DIV, 
0108 2A 661 DEFB ARS 
0107 EO 462 DEFB MEMORY+0 
o108 o1 &63 DEFB EXCH 
O10 2D &64 DEFB FLOAT 
104 3S 465 DEFB OUIT 
O1L0B 7E 4644 LD A. (HL) 
o10C FES1 647 CP 31H 
O10E 3007 643 AR NC,LOW2Z7 
o110 &49 RST CALCTR 
O111 O02 670 DEFER LOSE 
O112 o2 671 DEFB LOSE 
Q113 33 672 DEFR QUIT 


;MEMORY S t= THETA 
31/2 ° 


sJUST DO DRAW XR, YK IF SIN (THETA/2) = 0 


3 MEMORY OQ t= S° (SAY) = SIN (THEIA/Z) (TEMPORARILY) 


3XR,YR LEFT . 
sMEMURY 1 t= YR (TEMPORARILY) 


7 XR» \XRN 
3XR»\XR\LYR 

3 XR» YR»\XRN 
3XR2YR»\XRN\VYR 


3 XR» YR» \XRN\+N\YRN,S7 
STOP == KR (SAY) = (\XRN\+\YRN)/S%. AN APPROX 
3 THE RADIUS OF CURVATURE 


3S° 


3 XR» YR»S72R 


sA s= EXPT BYTE OF R 
sUNLESS R < 1, WHEN WE JUST DO DRAW XR YR 


IMATION TO 


GRAPHICS 


Lac 
o114 


O117 


Q11A 
O11B 
o1ic 
Oo11D 
OLLIE 
QLIF 
0120 
O121 
OLZ2 
0123 
124 
O125 
01246 
0127 
0128 
O12Z7 


012A. 


O12B 


o12c . 


0120 
O1LZE 
O12F 
a130 
O131 
0132 
0133 
O134 
OSS 
O1L26 
0137 
O1LS3 
O13Y 
O13A 
O13B 
o13c 


o13u 
O1SE 
O13F 
0140 
O14. 
0142 
O143 
O144 
O145 
Q146 
0147 


GRAPHS ; PAGE 7 
OBJ COLE M STMT SGURCE STATEMENT ASM 5.9 
Cscno1 R 473 JP DR_RA 
574 
CoD301 R 4675 LOW27: CALL O01 
&76& SNOW XR,YR,S’;R ARE ON THE STACK, . 
477 3 °° PHI.$S",C,.S, THETA ARE IN MEMORIES 0,1,3.4,5 
673 H N IS IN THE B REGISTER. 
cs 4&7? FUSH BC 
630 RST CALCTR 
02 631 DEFB LOSE 3R 
E1 682 DEFB MEMORY+1 ss" 
O1 683 DEFB EXCH 
05 34 DEFER DIV 3XR,YR,S"/3% : ; 
C1 oS DEFR COPY+1 sMEMORY 1 t= S"/S’% (fEMPORARILY) 
Q2 684 DEFER LOSE 
a1 G&E7 DEFER EXCH 
Bl 683 DEFR DLP 
El éS  DEFBR MEMORY+1 8 YR» XR+XR2S"/57 
O4 690 DErtk TIMES STOP t= XR#S"/S% = X*% (SAY). 
C2 é91 QOEFR COFY+2 SMEMORY 2 = X* (TEMPORARILY) 
a2 &92 DEFB LOSE : 
693 DEFB EXCH 
31 E94 DEFR DIK 
El 695 DEFR MEMURY+1 3XR,YR,YR:S"/357% 
04 OPE DEFB TIMES $TOP t= YR#S"/S* = YY’ (SAY) 
E2 697 DEFB MENORY+2 3 XR YR V7 2 X% 
ES 693 DEFER MEMORY+S 3XR»YR»Y%sX%2 THETA 
EO ‘ &79 * PEFB MEMORY+0 3FHI 
a3 700 DEFB Silk . 
A2 7al DEFBR CONST+2 31/2 
04 702 DEFER TIMES 
31 73 DEFB DUP 
1F 704 DEFER SIN 3XRYR2Y%»X%, (THETA-FHI)/2, SIN (¢(THETA-PHI)/2Z) 
cs FOS . DEFER COPY+S 3; MEMORY t= $°" (SAY) = SIN ((THETA-FHI)/2) 
02 7O& DEFR LOSE ; 
20 707 LDEFS cos . : 
Co 703 DEFR CORY+0 sSMEMORY O := C’" (SAY) = COS ((THETA-PHI)/2) 
oO2 709 DEFB LOSE 3 XR. YR» V72X7 
C2 710 DEFER COPY+2 SMEMORY 2 2= X% 
O2 711 DEFB LOSE ; 
Ci 712 DEFBR COFY+1 SMEMORY 1 8= Y¢% 
ES 7123 DEFR MEMORY+S- 3XR,YR,Y%,S7" 
714 —9¢X*,Y%) IS NOW ROTATED THROUGH AN ANGLE -(CTHETA-PHI)/2 TO GIVE 
7S at (DX,DY). 
a4 714 DEFR TIMES 
EO 717 DEFER MEMNORY+0 s;GET C*" 
E2 713 DEFR MEMORY+2 sGET XxX’ 
04 JA9 QOEFB VIMES : 
OF 729 DEFR ALD 3TOP s= INITIAL DX = C7"#X74+97"HY? 
E1 7z DEFBR MEMURY+1  #$Y7% * ; 
O1 22 DEFB EXCH 
C1 723 DEF Cury+1 sSMEMORY 1 2= DX 
O02 724 DEFB LOSE 5XRiYR,Y% LEFT: 
EO 725 DEFB MEMORY+0 sc’" 
04 726 DEFB TIMES 


GRAPHICS 
OB. COLE M STMT SOURCE STATEMENT 


Lac 


0148 
O149 
O14A 
O14B 
o14c 
Oo14D 
O14E 
OL4E 
OLsO 
O151 
O182 
OLS3 
0154 
O156 
O157 
O1LSA 
O15B 
oO1se 
o1sD 
O1LSE 
O161 
O164 
O1465 
O146 
0147 
O148 
Q1é9 
O16 
OL46F 
Q170 
o171 
O17Z 
0173 
0174 


0175 . 


E2 
ES 
04 
03 
C2 
2A 
El 


os 


. 


OF 

Q2 

3S 

1A 
FES1 
C1 
DACDOL 
cs 


Ol 
33 
SA7USC 


~ GhOAOO 


co 
OF 
o1 
33 
SA7ESC' 
CDO0000 


x 


727 
723 
729 
7320 
731 
732 
733 
734 
735 
736 
737 
733 
737 
740 
741 
742 
743 
744 
745 
744 
747 
743 
749 
70 
751 
732 
733 
734 
735 
736 
737 
733 
73? 


pC2: 


GRAPHS 


DEFER MEMORY+2 
DEFB MEMORY+5 
DErR TIMES 
DEFB SUE | 
DEFER COPY+2 
DEFR ABS 

DEFB MEMORY+1 
DEFE ABS 

LEFB ADD 

DEFB LOSE 
LEFR QUIT 

LD A, (DE) 

cP 81H 

POP BC 

JP C,DRORA 
PUSH. BC 

RST CALCIR 


‘ DEFB EXCH 


DEFR QUIT 

LD A, (COORUS) 
CALL STK_A 
RST CALCTR 
DEFB COPY+0 
DEFR ADD 

DEFB EXCH 
DEFB QUIT 

LO A, (COORDS+ 
CALL STK_A 
RST CALCTR 
DEFB COPY+S 
DEFB ADL 

DEFB MEMORY+0 
CEFR MEMORY+S 


DEFB QUIT 
POP BC . 
32ND 
SENTE 
i 
3; DRAW 
“4 
Y 3 
i 
3X & 
DEC B 


UR Z,LDC27 
JR LDC23 


3 HERE 
sDX & 
3 STAC 


PAGE 8 
ASM 5.9 
3X? 
ssvu 
+TOP t= INITIAL DY = -S*"#xX? + C7"HRY- 
sMEMORY 2 t= OY 
3DX 


3 \DX\4N0Y\N . 
sLEAVING XR, YR 


3B 8= N. 
SIF \UX\4+\UY\ < 1 fHEN JUST DO DJRAW XR, YR 


#YR»XR 


3MEMORY O 2= X (TEMPORARILY) 
3 VK» XE : 
3XE,YR 


1) 


sMEMORY S ¢= Y (TEMPORARILY) 
5 XE,YE 

sGE1 X 

3GET Y¥ 


SDROP THRUUGH TO DC2 
COMMON SUBROUTINE GF DRAW & CIRCLE. 
R WITH XE,YE,X & Y (ON TOP) ON CALCIR STALK, 
DX,DY,C & S IN MEMORIES 1,2,3 & 4, 
N IN B REGISTER. : 
3S N CHORDS (DX,DY) IN SUCCESSION STARTING Al 
APPROXIMATE AN ARC CF A CIRCLE. FUR THE FIRST, DX & OY 
ARE AS ON ENTRY. FOR EACH SUBSEQUENT ONE, (DX,DY) IS 
ROTATED THROUGH AN ANGLE PHI WHERE ¢C = CUS PHI, 
S = SIN FHI. FOR THE LAST CHORD, DX & LY ARE FORGOTTEN 
& A STRAIGHT LINE IS ORAWN TO (XE,YE). . . 
Y ARE COORDINATES FOR THE CURREN) PLOT FOSITION, BUT 
CALCULATED EXACTLY INSTEAD UF BEING. ROUNDED. 


(X,Y) TO 


TO CALCULATE NEW (DX,DY). 
= C#OX-S#uy, DY &= S#e(ULD DX)+CH#Dy 
K XE,YEsXsY. . 


GRAFHS 


OBJ COVE M STMT SOURCE STATEMENT 


GRAFHICS 
Loc 
O17B 781 
o17c OE 1 782 
O17D O31 783 
OL7E ES 784 
OL/F 04 : 735 
o1s0 2 786 
-O181 £4 787 
Q1s2 04 783 
o183 O82 739 
o184 Ci 730 
oe 02 791 
0184 E4 792 
o1g87 «04 793 
O18 2 794 
O189 E38 TIS 
O1BA 04 796 
O1eh OF 797 
o1ec 6c 793 
o1gD° 02 TID 
O1SE 8638 : B00 
01 
B02 
S03 
804 
O18F CS $05 
o1z0 ; BOG 
o17. co ' S07 
o1y2 o2 BOS 
O1vR El S09 
0194 =8=OF B10 
avs 31 B11 
O196 38 2120 
0197) = 3A7D5¢C 613 
Olga |. CHOOOO xX 814 
o19n S15 
O19E O83 B14 
O19F EO 17 
Q1’AO  E2 813 
O1AL OF B19 
oO1Aaz CO ee 
Olas ol 221 
o1ad EO S2u 
Olas 38 823 
O1A6 B3A7ESC 224 
O1A2 ChOOQ0O xX ses 
o1Ac 824 
O1AD = 3 G27 
O1AE §=38 Sze 
O1AF cChonpoz R #29 
o1n2 C1 830 
O1B3 1006 B21 
83z 
O1B5 B33 
O1b6 02 $34 


co. 
a) 
K 
3 


LDC27: 


RST CALCTR 


DEFY 
DEFB 
DEF 
DEFB 
DEF 
TEFB 
DEFB 
Der 
DEFB 
LIEFB 
DEFY 
DEFE 
DEFB 
DErs 
DEFB 
DEFB 
DEFB 
OK B 
DEFB 


PUSH 


MEMORY+1 
DP 
MEMORY+3 
TIMES 
MEMORY +2 
MEMORY +4 
TIMES 
SUB 
COPY+1 
LOSE 
MEMOKY+4 
TIMES 
MEMORY+2 
MEMORY+3 
TIMES 
ADD 
CYPY+2 
LUSE 
QUIT 


sGET DX 


$XE,VYE,X»,Y,DX,0X,C 
$XE»YE,X,Y,0X,C#OX,DY,S 


sMEMURY 1 := NEW DX 
3XE,YE,X,Y,OLD DX 


sMEMORY 2 '= NEW DY 
3XE.YE,X,Y 


sHERE TO ORAW CHORD. 

3B = NO. CHORDS LEFT TO DRAW (EXCLUDING LAST) 
iCALCTR STACK HAS XE,YE,X & Y¥ 

3X +3= DX, ¥Y +8= DY, DRAW TO NEW (X,Y) 


BC 


RST CALCTR 


DEFE 
DEFER 
DEB 
DEFB 
UEFA 
DEFER 
LOA 
CALL 


CUPY+0 
LOSE 
MEMORY +1 
ADD 

OUP 
QUIT 

> (COORDS) 
STK_A 


RET CALCTR 


DEFER 
UEFB 
DEFB 
DEFB 
DEFB 
HEF BE 
DEFB 
DEFB 
LO A 
CALL 


SUB 
MEMORY +0 
MEMORY+2 
ALD 
COPY+O 
EXCH 
MEMORY+0 
UT 

» (COORDS+1 > 
STK_A 


RST CALCTR 


CFB 
DEFB 
CALL 


SUB 
QUIT 
CRAWL 


POP BC 


DINZ 


LOoCZz2 


RST CALCTR 


DEFB 


LOSE 


sMEMORY O t= Y 


3XE,YE.X2LX . 
*TOP ¢= X+DX = NEW VALUE FOR X 


3XE,YE.XX 


3TOP t= X-DISPLACEMENT FOR DRAW 
3GET Y 

3XE,YE.X.X-DISP, Y,DY 

3TOP ¢= Y+DY = NEW VALUE FOR Y 
SMEMORY O := NEW Y 


3XE,YE,X,Y,X-VISP,Y 


3TOP := Y-DISP FOR DRAW 


sHERE FOR LAST CHORD WITH Xk,YE,X»Y ON CALCTR STACK 


EE ee 


. 


GRAPHICS GRAPHS PAGE 10 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
O17 . 02 $35 CEFR LOSE ; 
O1BS = OL 346 ' DEFER EXCH $ YE. XE 
O1B? 8638 27 DEFB Git 
OQABA = SA7USC S38 LO A, (COORDS) 
O1BD coQQ0Q -X #839 CALL STK_A 
oO1co 840 . RST CALCTR 
o1cL O28 S41 DEFB SUB 3YE.X-DISP FOR DRAW_L 
o1ic2 O11 842 DEFB EXCH 3X-DISP, YE 
Q1ic3 38 843 DEFR QUIT 
o1c4 S3A7ESC 44 LO A, (COORUS+1) 
o1c7 cphoced xX 845 ; CALL STK_A 
o1ta B44 RST CALCTR 
GO1cB 03 847 DEFR SUB +X-DISP, Y-DISP 
O1Lc = «a8 848 DEFB QUIT 
849 OR_RA: SCALL ORAWLL & RATTS 
O1cD chopo2 R_ sso CALL DRAW L 
O1ng = =C3d000 xX ssi JP RUATIS 
S52 
253 UCL: 31ST COMMON SUBROUTINE OF DRAW & CIRCLE. 
es4 sENTER WITH 
ess ; ; TOF OF CALCTR STACK = R, THE RADIUS OF CURVATURE 
ahd H MEMORY S = THETA, THE ANGLE fO BE TURNED THROUGH 
57 s$RETURN WITH 
ese ; MEMORY O = PHI 
ese 5 MEMORY 1 = S$" = SIN (PHI/2) : 
B40 $ MEMORY 3 = C = COS FHI 
‘ S461 ; MEMORY 4 = $ = SIN PHI 
B42 : MEMORY S PRESERVED AS fHETA 
243 a B REGISTER = N 
B44 3 & CALCTR STACK UNCHANGED. 
245 ;HERE N = NO. OF CHORDS TO BE DRAWN IN AFPROXIMATING AN ARC, 
Bed : THETA = ANGLE TO BE TURNED THRUUGH BY ARC, 
347 5 PHI = THETA/N = ANGLE SUBTENUEU AT CENTRE BY EACH ARL. 
843 IF WE NAKE PHI = 2#ARCCOS ((R-.5)/R) THEN THE ARC WILL NEVER 
B49 ; BE MORE THAN 1/2 PIXEL FROM THE CHORDS. WE APPROXIMATE 
#70 3 fO THIS BY PHI = 2#R*(-1/2), 
O1b3 871 RET CALCTR 
o104 21 872 DEFER DUP 
OQ1DS 28 873 DEFB ROCT ; 
o1n& 34 874 DEFER LITERAL 32 = .80 *# 2°2 
O1U7 = 32 275 LEFB SO 
oie a0 874 UEFR O | 
ony On 877 WEFB EXCH 
o1na = Os 78 DKFB DIV 
O1DK «OES a7y DEFR MEMORY+S  $GET THETA 
o1oc | Ot S20 DEFB EXCH 
O1nb 60s B81 DEFB DIV 
O1DE 2A 882 DEFB ABS sR» \THETA/FHI\ = N 
Oi1nF = 3 Bag DEFB QUIT , 
O1—EO CchoodO xX se4 CALL FP2A . 
Q1E3 3806 e35 JR C,LOCIS 3IF N >= 254, t= 252 
O1ES5 E6FC Bak AND OFCH 3TO MAKE N A MULTIPLE OF 4 


O1E7 C4604 S37 ALD A4 3FOR LUCK 
Q1E?. 3002 Soa JR NC, LOC14a : 


GRAPHICS GRAPHS : PAGE 11 


Loc OBJ COUE M STMT SOURCE STATEMENT ASM 5.9 
O1EB SEFC es? LDCIS: LD A, 252 
OLED FS 890 LDC14: PUSH AF +HERE WITH A = N, & R ON STACK 
O1EE  CD0OQQQ xX g91 CALL STK_A 
O1F 1 B92 RST CALCTR ~ 
O1F2 ES 803 LEFB MEMORY+S  $R.N» THETA 
O1F3 01 894 DEF EXCH 
O1F4 05 875 DEFB DIV $TOP t= PROPER PHI = THETA/N 
O1FS = 31 896 DEFB DUP 3R> PHI, PHI 
OFS 9 1F 897 DEFB SIN 3R>PHI,S 
O1F7 C4 878 DEFR COPY+4 iMEMORY 4 ¢= 
O1FS 02 EoD DEFE LOSE 
OFF = 34 900 DEFB DUP 3R> PHI, PHI ; . 
O1FA AZ 9OL {EF BR CONST+2 31/2 
O1FB 04 902 DEFE TIMES 
OIF | o1F 903 DEFB SIN $R»PHI,S" = SIN (PHI/2) 
O1FD C1 904 DEFB COPY+1 SMEMORY 1 s= S" 
O1FE O14 905 DEFB EXCH 
O1FF CO 906 DEFB COFY+0 SMEMORY O t= PHI 
0200 02 907 DEFB LOSE 
oz01 31° #08 DEF DUP 7RS",S" 
0202 04 - 909 DEFR TIMES 
0203 31 910 DEFER BUF 
0204 OF 911 DEFB ALD 
0205 Al 912 DEFB CONST+1 $1 
0206 08 913 DEFB ‘SUB 
Oz07 1B 214 DEFB NEGATE sTOP OF STACK t= 1 ~ 2#8"*2 = COS PHI =C 
0208 UB 915 DEFB COPY+3 sMEMORY 3 t= C 
0209 02 914 DEFB LOSE sc 
020A 38 917 DEB QUIT 
0208 «C1 $18 POP BC 


o20C Cc? * GID RET 


> 


ry 


GRAPHICS 


Lac OBJ CODE M STMT 
920 

921 

922 

923 

924 

925 

' 926 

927 

928 

2? 

920 

: 931 
922 

P33 

734 

925 

934 

937 

933 

939 

. 240 

oz0D COSD00 R 941 
0210 79 : 942 
O211 Be 943 
OZ12 3006 944 
0214 69 945 
0215 0S ‘ DAG 
0216 AF 347 
O217 SF 948 
0213 1807 949 
940 

oz1Q Bl 951 
O21B Cs 952 
azic 48 $E3 
o21D. 41 954 
O21E DS 955 
OZ1F 1400 one 
97 

Oz21 &Q 25a 
0222 768 959 
OZ223 1F 960 
S41 

962 

O22 85 963 
0225 3803 944 
O227  #C 965 
O223 3807 944 
O22Q $4 967 
O228 4F 268 
ozz20 «De I69 
0220 C1 970 
O22E «C5 971 
O22F 1804 972 


GRAPHS PAGE 12 
SOURCE STATEMENT SM 5.9 
#EJECT 
DRAW L? sDRAW X,Y. 
SPLOTS A STRAIGHT LINE FRUM THE CURRENT COURDS TQ RELATIVE 
; POSITION (X,Y) - X & Y ARE SIGNED, + RIGHT OR UPWARDS. 
sUSES A BINARY-RATE-MULTIPLIER ALGORITHM: 
+ LET M BE THE LARGER OF \X\ & \Y\, & N THE OTHER. 
3 LET (1 BE A UNIT STEP IN THE DIAGONAL DIRECTION DEFINED BY 
$ THE SIGNS OF X & Y, & D2 A UNIT STEP IN THE ORTHOGONAL 
3 DIRECTION DEFINED SY THE LARGER OF X & Y (EG IF X = 3 & 
+ Y = -4 THEN D1 IS RIGHT & DOWNWARDS & D2 1S DOWNWARUS. IF 
; 3 EITHER X OR Y IS ZERG, THEN D4 .3 NOT USEO;} IF X = Y THEN D2 
+ IS NOT USED). 
+ LET S BE AN ACCUMULATUR THAT IS INITIALIZED TO M/2. WE UO THE 
$ FOLLOWING M TIMES: 
+ ADDN TOS 
+ IF NOW S <M, MOVE BY D1, ELSE SUBTRACT M FROM S & MOVE 
; ay 02. | 
3 THE END EFFECT IS A MOVE OF N-PLACES IN DIRECTION D1 & M-N IN 
3 GIRECTION D2, THE TWO DIRECTIONS BEING MIXED AS EVENLY AS 
; POSSIBLE, 
CALL GET XY 
DRAWLN LD A.C ;NOW B = \Y\, C = \X\, DE = Di. 
CP B 
JR NC,» LDR2 
LD Loc sHERE IF \Y\ > \X\, SOM = \Y\, N= AX\. 
FUSH DE 
XOR A 
LD EA 3D2 [S UPWARDS OR COWNWARDS 
JR LURS 
LDR2: oRC SHERE IF \X\ >= \Y\, SOM = \X\, N =\Y\ 
RET Z sNOTHING TO DO IF X = Y = 0 . 
LO LB 
Lo B.C 
PUSH DE 
Lo D0 
LORS: ;NOW B= M, L = N, DE = D2, (SP) = Di,» CARRY CLEAR 
LD HB aS 
LO A.B 
RRA tA t= M/2 
LDR4: -$START OF LOGP: B COUNTS ITERATIONS, A=S, H=M, L=N, DE=D2, 
+ (SP)=D1 
ADD, AsL 
JR C,LDR4S +IF CARRY THEN CERTAINLY $.> M. 
CF H 
JR C,LDRS - sIFS <M 
LORaS: SUB H sELSE SUBTRACT M & MOVE DIAGONALLY 
LO CA 
EXX 
POP BC 
PUSH BC 
JR LORS 


GRAPHICS GRAPHS PAGE 13 
Luc oss CODE M STNT SOURCE STATEMENT ASM 5.9 

O221 4F 974 LORS: LO CA THERE TO MOVE ROOKWISE 

o232 D5 975 PUSH GE 

O232 pe 274 EXX 

omg C41 977 PUP BC 
973 LDR: ;NOW B*=COUNT, C’=S, H’=M, L’=N, D’E’=02, (SP)=D1, 
979 $3 BC = WHICHEVER (5 REQUIRED OF O1 & D2. 

0235 2aA7D5C $30 LD HL, (CcoOoRDS) 

ozs 78 vel LD A.B 3AUD MOVE (IN BC) TO CURRENT FOSN (IN HL). 

oz37 «6s 932 ADD AH : 

OZ3A 47 We LD BLA 
934 wWE NOW WANT TO ALL LTO C, & ABORT IF THIS TAKES C OUTSIDE 

PES ; H THE RANGE O TO 255, I.E. IF L 0, C=-1, OR L=255, C=+1, 

O23B 79 Pb LD ALC 

O23C 3c 987 INC A. 5A t= 0, 1 UR 2 

o23n 635 288 ADD AL . 
Pap $THE ERROR CONUITIONS ARE NOW (C,NZ) FOR L=255, C=+1, & (NC»2) 
PIO 3 FUR L=0, C=-1, 

O23 3800 O74 JR C, LORS 

o2z40 |= 2eOn 972 JR Z,ERRB 

o242 «631 993 LDR7: LEC A 

0243 -4F v74 LO C.A 

0244 CD3B00 895 CALL PLOTBC 3PLOT OR UNPLOT PIXEL 

0247 TD. PPS EXX 

o248 79 997 LD A.C 

oz47 = 10D? 998 DINZ LLIR4 sREPEAT LOUP 

-O24H DA POD POP DE SREMOVE [11 FROM STACK WHEN DONE 

o24c Uc? 1900 RET 
1001 

024D 8 28F3 1002 LDRS: JR Z.LUR7 

O24+ 100% ERRH: RST ERROR SERROR B, INTEGER OUT OF’ RANGE 

0250 OA 1004 ' DEFB 10 : 
1005 
1006 END 


ie 


x 


v 


EXFRESSION EVALUATOR 
OBJ CODE M STMT SOURCE 


Loc 


0000 


ooo! 
09003 


O04 


0005 


Q008 
O00B 
o00c 
OOF 
0011 
0012 
0013 


Oo14 
0017 
oo1g 
0018 
0015 
OO1F 
Q021 


0400 
cs : 


4F 
21F 800 
CLOO0O 


CoOoOa 
O32 
FEOR 
CAN000 
FEZ2 
2O0FR3 
ips aT ear ale) 


1 
419 
420 
421 
422 
423 
42 
425 
426 
427 
423 
429 
430 
431 
432 
433 
434 
42 
424 
437 
433 
439 
440 
AAL 
442 
443 
444 
445 
444 
447 
443 
449 
450 
451 
452 
453 
454 
455 
454 
457 
458 
459 
460 
461 
462 
463 
464 
445 
466 
467 
468 
AG? 
470 
471 


#HEAD 
#LIST 


EX 
ST 
EX 
UN 


PRN PAGE 1 
ATENENT ASM 5.9 
PRESSION EVALUATOR 


GLOBAL EXPRN, INTPT?,NXTOHL 
GLOBAL F_SURN, F_ATTR» RNG, FLPI, F INKY 


EXTERNAL NEXTCH,NC_HL, TC_HL BASIL 
EXTERNAL K_SCAN, K_BASE, CHCODE sKSCAN 
EXTERNAL INSERT, SEARCH SEIT 
EXTERNAL SUBLNI . SLIST 
EXTERNAL SYNERR, ERR2, DYADIC, SKIP 3 SYNTAX 
EXTERNAL GET_XY sSYNTWO 
EXTERNAL F_PNT . 3 GRAPHS 
EXTERNAL FIND_N, ALNUM?, PSHSTR» SLICER, GET_EL, ALPHA? s IDENT 
EXTERNAL FP2RC, STKUSN, STK_BC, STK_A s INGUT 
EXTERNAL STK_M sCALC 
EXTERNAL FLOAT + SUMS 
EXPRN?. 3SYNTAX CHECK OR EVALUATE EXPRESSION. 


LE2: 


S LPs 


LSP2: 


$ LEAVES VALUE ON CALCULATOR STACK IF EVALUATING. UN RETURN 
3 HL = (CHIADU) -> TERMINATOR = A. 
§ SMASHES BCDEA‘F‘R‘CYD-E-, 
RST IGNSP 
LD BO 
PUSH BC 3 STACK ZERO PRIORITY “START OF EXPRESSION’ MARKER 
SHERE WHEN EXPECT GPERANDs CURRENT CHAR IN A. 
LO CLA 
LD HL, OPDTAB 
CALL SEARCH 


LO A.C 3A == CURRENT CHARACTER 

JP ONC, LESL SUNLESS CHAR FOUND IN TABLE 
LD BO 

LD C,. (HL) 

AUD HL, BC 

JP (CHL) 3TO DEAL WITH CHAR 


sSTRING LITERAL PORTION (A SUBROUTINE OF STRLIT) 

SENTER WITH (CHADD) -—> A SIRING QUOTE. 

3HL 8= (CHADD) :-> BYTE AFTER NEXT STRING QUOTE 

$A t= (HL). RETURNS Z IF A t= 7" 

+BC := NO. OF CHARS READ UP TO & INCLUUING TERMINAL STRING 

3 GUQIE, BUT NOT INCLUDING INITIAL GONE 

H = 1 LESS THAN NO. BYTES MOVED BY (CH ADE) 

SPRESERVES De 
a sABORTS IF FINDS NL. : 
: s;NB ASSUMES THAT THE ONLY COMPOSITE CHARACTERS THAT CAN AFFEAR 
IN A QUOTED STRING ARE THE ATTRIBUTE CONTROLS: THE DATA 

3 BYTES FOR THESE ARE 9 OR LESS, & SO CANNOT BE “"’ OR NL. 

CALL NEXTCH 
INC BC 
CP NL 
IP Z.SYNERR 
CP sue 
JR NZ,LSP2 
CALL NEXTCH 


. 


» 


EXPRESSICN EVALUATOR 


EXPRN ; PAGE 2 
Loc 86GB! CODE M STMT SOURCE STATEMENT ASM 5.9 
0024 FE22 472 cp vl 
0025 C9 473 RET 
474 
475 UY UKET: 3( NOJEXPRN » NO.JEXPRN ) 
476 3ENTER WITH (CHADD) -> JUST BEFORE SRA 
477 sRETURNS WITH (CHADD) -—> *)¢ 
4783 sRETURNS Z IF CHECKING SYNTAX 
0027 479 RST NXT_IS 
ooze FEZ 460 CP 7(" 
OOZA 2004 4a JR NZ LOT2 
oozC  CDoodd X 482 CALL DYADIC 
002F 483 RST IGN SP : ; 
0020 FE29 qq “LP *)¢ 
00322 C20000 X 485 LoT2: JP NZ,SYNERR 
oO35 FDCBO1L7E 434 INIPT?: BIT INTPT, (IY-Y+FLAGS) $§NB PRESERVES CARRY 
0039 869 437 RET 
4338 
489 F_LSCKN: sRUN TIME ACTION FOR SCREEN 
470 $THE TWO ARGUMENTS ARE INTERFRETED AS THE AT COORDS OF A CHAR. 
471 ; POSITION ON THE SCREEN. IF THIS POSITION CONTAINS A: 
492 3 PRINTABLE ASCII-CHAR. OR THE INVERSE CF GONE, THEN THE 
APR ; RESULT IS THAT CHAR.$’ ELSE IT IS THE EMPTY STRING. 
OOSA ChOQWO xX 494 CALL GET_XY $0 t= LINE, B t= COLUMN (AT COURDS) 
OO2D 2A3465C 475 LO HL,» (CHARS) 
0040 110001 496 LD DE, &#20H 
0043 19 497 ADD HL, DE - $HL &—> 1ST CHAR IN CHARACTER SET (CORRG. To ’ *). 
o044 79 \ 49: “LO ALC : 
0045 OF 4? RRCA 
0046 OF 500 RRCA 
0047 OF S01 RRCA 
0043 E&EO 502 AND 11100000B 
O0O4Q AS 503 XOR B 
OO4B SF 504 -LO EA 
004g «79 505 LD ALC 
oo4n E618 50S AND 00011000B 
QO4F  EE40 507 XOR O1L000000B 
Ooo 1 57 508 LO DLA 3DE :-> CHAR IN DISPLAY FILE 
0052 0440 509 LD B96 3B = NO. PRINTABLE ASCII CHARS 
0054 cs S10 LFS2: FLUSH BC ; ; . 
ooss ns S11 PUSH DE 
o054 ES 512 FUSH HL: 
0057 1A S13 LO A» (DE) 
oOoS3 AE 514 XOR (HL) 
OO59 2304 515 JR ZiLFS3 
OOSB at Sis INC’ A 
oos  B2O1A 517 JR NZ, LFS7 - $IF CHAR DOESN“T MATCH 
oOsSE 3D 513 DEC A $A t= -1 
OOSF 4F 519 LFS3: LO c.A $C s= 0 TO DETECT MATCH, -1 FOR INVERSE MATCH 
0060 0407 520 LO B,7 $B := NO, SUANS TO CHECK 
0062 14 S21 LFS35: Inc po 3DE 8-> NEXT SCAN IN DISPLAY 
0063 823 522 INC HL sHL 8-> NEXT SCAN IN CHAR SET 
0064 1A 523 LO A, (DE) : 
aQ065 AE 524 XOR* (HL) 
0066 AD: 525 XOR C 


y 


EXPRESSIUN EVALUATOR 


Loc 


00467 
0693 


OO4B 
o04aC 
Oo046D 
O04E 
0070 
ao71 
0074 
Q075 


Q076 © 


0073: 


0079 


oo7c . 


oo7D 
OO7E 
OO7F 


0081 
O082 


agss 
ODE 
Q087 
OOSS 
. OO8? 
008A 
OOZB 
oosD 
ooseE 
OOSF 
oo70 
oov2 
0074 
QOFS 


0096 


0079 
oosc 
OOFE 
QOFF 
QOAQ 
QOOAL 


EXFRN PAGE 3 


OB! CODE M STMT SOURCE STATEMENT ASM 3.9 
200F S24 JR NZ.LFS7 3IF CHAR DOESN’T MATCH 
10F7 S27 DINZ LFS3sS 3FOQR NEXT SCAN ; 
523 SHERE IF MATCH WITH (SP) -> CHAR IN CHAR SET, (SP+2) -> CHAR IN 
S29 H DISFLAY FILE, (SP+5) = CHAR COUNT 
C1 530 FOP BC 
C1 So. FOP BC 
C1 S32 PuP BC 
3E80 S33 LO A, SOH 
20 534 SUB B ‘ 3A t= CHAR. CODE 
010100 S35 LO BC,1 : 
S36 ST COPYUP 
12 537 LD (DE),A 
180A S33 JR LFSS 
S39 
540 LFS7s SHERE WHEN CHAR. DOESN“? MATCH, WITH (SP) -> CHAR IN CHAR SET» 
S41 3 (SP+2) -—> CHAR. IN DISPLAY FILE, (SP+5) = CHAR COUNT. 
El: 242 FOP HL 
110800 543 LD DE,8 
19 544 ADD HL,DE sHL &-> NEXT CHAR IN CHAR SET 
D1 S45 PoP DE sLIE :-> CHAR IN DISPLAY FILE 
C1 546 FaOP BC 3B := CHAR COUNT 
10D3. 547 ‘DUNZ LFS2 3FOR NEXT CHAR 
B43 sHERE IF NO MATCH AT ALL, WITH B = O 
48 S49 LO C,.8 7BC t= 0 . 
Cc? 550 LFS: RET . 
SS. ; 
‘ S52 F_LATTR: sRUN-TIME ACTION FOR ATTR. 
S53 SARGUMENTS ARE ON THE CALCULATUR STACK. 
CLOO0O X S54 CALL GET_XY $C s= LINE NO., B s= COLUMN NO. 
7? S55 Lo A.C’ 
OF S56 RRCA 
OF 357 RRCA 
OF 55s RRA 
4F oo LO C.A 
E4EO 540 AND 11100000B 
AS Sé1 xaR B 
4&F 562 LO LA 
79 543 LO A.C 
E403 564 AND 00000011B 
EESS S65 ~ XOR 01011000B 
&7 544 LD HA 
/E 547 LD A» (HL) 
C30000 X 548 JP STK_A 
S49 5) ; 
570 ; 
571 ; . $%## ADDITIONAL TEMPORARY CODE FOR NEW KEYWORDS 
COB500 R S72 DELTE: CALL INTPT? 
2303 S73 AR Z,DELTE1 
EF 374 RST CALCTR 
AS S75 DEFB CONST+3 
33 ; 576 DEFB QUIT 
C3zZD02 R S77 DELTE1: JP LE34 
578 ; s# ADDITIONAL CODE FOR STICK ANU FREE 
79 - 


EXPRESSION EVALUATOR 
Loc 


Seo 

S31 

QOA4 CD2700 R S82 
OQOA7 C44E00 R Ses 
QOAA E7 . Seq 
QOAB C32zn02 R 585 
OOAE [as ale Te Tele) X See 
ooB1 73 37 
OOM? Con700 R See 
OOBS 7? Sey 
OoB4 COD700 R S90 
QOR? Si S91 
OOBA SEOE ave 
OORt D3FS S93 
OOBE OEFS S94 
[are] xa) E073 S95 
OOt2 ZF S76 
oor3 42 S97 
oor4 100Cc 593 
fale] era E4OF 599 
OooCs, FEOF 600 
OOrA 3202 é01 
aor E400 602 
OOCE COea00 X 603 
oopnL ce 604 
oon2 © O7 605 
‘ £06 

607 

OOD E401 608 
oons 1SF7 407 
610 

0007 0402 4611 
oony CEQO 612 
QOOLIE 2001 613 
oongn Cc? $14 
615 

OonE CF 616 
OourF (oh 617 
618 

QOEO CO3S00 R 41% 
QOdES Z2o0F 620 
OOES ZABZ5C S21 
QUES EDSBSSSC 622 
OOEC ‘A7 623 
OOrED EDS2 624 
QOLF 40 625 
OOFO 44 624 
OOF 1 cooo0g X 427 
OOF4 E7 $23 
aoFS C32002 R 629 
630 

631 

632 

633 


EXPRN 


STICK: 


STICK: 


STICK2: 


STICK3: 


TEST12: 


ERR12: 


FREE2: 


FREES: 


OPDTAB: 


GBJ CODE M STMT SOURCE STATEMENT 


CALL DY KEI 


CALL NZ,STICK1 
RST NXT_IS 
JP LE34 
. CALL GET_xY 
LD A.B 
CALL TESTi2 
LD ASC 
CALL TEST12 
LD. Dc 
LO A,0EH 
QUT (OFSH).A 
Lo C,OF6H 
IN A,(C) 
CPL 
Lo B.D 
DINZ STICKS 
AND OFH 
CP OFH 
JR C,STICKZ 
AND O 
CALL STK_A 
RET 
RLCA 


AND O1H — 
JK STICK 


: SUB O02 
ADC A,OOH 

JR NZ, ERR12 
RET 


RST ERROR 
DEFB O9H 


INTPT? 
dR Z, FREES 
Lo HL» (RAMTOP) 
LD DE, (STREND) 


STK_BC 
RST NXT_IS 

JP LE34 

3 ee 


SSTEP ON 


PAGE 4 
ASM 5.9 


3GET (iH, #) 
sCALL STICKL IF INTERPRETING. 
sURPDATE CHADD 
SASSIGN THE FUNCTION VALUE 
sGET DEVICE TYPE ANU PLAYER # FROM STACK. 


sPLAYER # MUST BE 1 OR 2 


sDEVICE TYPE MUST BE 1 OR 2 
sSAVE DEVICE TYFE ~ 
SANNOUNCE YOU WANT TO READ JOYSTICK 


sREAD IN JOYSTICK VALUE FOR FLAYER IN B REG. 


SINPUT MUST BE COMPLEMENTED. 
SRESTORE DEVICE TYFE 
SIF PUSHBUTTON » GO TO STICKS 
s{F JOYSTICK, GET DIRECTION. 
$15 IT CENTER? 
sNO , JUMP 
sYES, THEN CENTER IS DIRECTION O. 
sRETURN THE INTEGER {N THE ACCUMULATOR 


sMSB SET? YES, FUSH BUTTON UNPUSHED 


3 NO, PUSH BUTTON PUSHED 


3 
SRETURN 1 FOR BUTTON PUSHED 

SRETURN 2 FOR BUTTON UNPUSHED 
sFINISH UP 


SERROR IF # IN A IS NOT 1 OR 2 


sERROR A ~ INVALID ARGUEMENT 


SFRUE AREA [5 FROM STKEND TO RAMTOP 


3PUT # OF FREE BYTES INTO BC 
;PUT BC ONTO THE STACK 


sJUMP TO HANDLE A NUMERIC FUNCTION 


STABLE OF CHARS -FOR GPERAND & THE RELATIVE AUDKESSES OF COVE 


EXPRESSION EVALUATOR 


Loc 


OOFS 


OOFD 
QOFA 
OOF BR 
OOF 
OOFD 
OOFE 
OOFF 


0100 
o101 
0102 
0103 


0104 
0105 
0104 
0107 
0103 
O107 
O10A 
O10B 
o1o0c 
O10L 
010E 
O10F 
0110 
O111 
0112 
O113 
0114 


O115 
0117 


O119 
O11A 


O11D 
O11E 
O11F 
0120 


C30400 R 


23 
ES 
010000 


634 
635 
636 
437 
633 
G3? 
640 
641 
642 
643 
644 
645 
644 
547 
643 
649 
650 
651 


EXFRN 
OBJ CODE M STMT SOURCE STATEMENT 


FREE1s 
STICKO: 


MONPLS: 


STRLIT= 


DEFB “"~ 


3 TO DEAL WITH THEM. 


DEFB STRLIT-% 


DEFER “(7 


DEFB BRAEXP-% 
“oe 


DEFB 


DEFB LES2-% 


DEFB “+” 


DEFER MONPLS-% 


DEFB 7CH 


DEFB STI 


3## ADDITIONAL CODE FOR STICK AND FREE 


CKO-$ sSTICK 


DEFB 7EH 
DEFB FREEI-% sFREE 


§ et 


DEFB FNOTK 

DEFB FN-% 

DEB RNDOTOK , , . y 
DEFB RND-$ oe 


DEFB PI 


DEFR F_PI-%$ 
DEFB INKEY 


DEFBR FI 


DEFB BIN_TK 


DEFB SCR 
DEFB SCR 
LEFB ATT 


“DEFBR LES2—-$ . ; ; 


DEFB ATTR-% 
DEFB PNT TK 
DEFB PNT-% 


GEFB O 


RST IGN. 
ING HL 

PUSH HL 
LO BC.O 


s#% ADDITIONAL CODE FOR STICK AND FREE 


FREE2 
JR STICK 


RST NXT_IS 


+STRING LITERAL : 
AT RUN TIME: NORMALLY THE VALUE OF THE SIRING AS FUT ON THE 
CALCTR STACK POINTS DIRECTLY INTO THE SOURCE; BUT IF THE 
STRING CONTAINS ANY GUOTE IMAGES (PAIRS OF CUNSECUTIVE 
STRING QUOTES) THEN A COPY OF THE STRING IS MADE IN WORK 
SPACE IN WHICH THE QUQTE IMAGES ARE REPLACED BY QUCIES. 


we we we we oe 


SP 


(SF) #-> 1ST CHAR IN STRING 
INITIALIZE CHAR COUNT 


. 
? 
ry 
? 


EXPRESSION EVALUATOR EXF'RN PAGE 6 


Loc OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
0123 #Ch1400) R 483 CALL S_L_P 
O126 201B 689 JR NZ,LSTS SIF SIRING OVER WITH NO QUOTE IMAGES 
0128 Cb1400 R 690 LST2: CALL S_LLP. 
O12B 28FB 671 JR Z,LST2 3UNLESS STRING OVER 
01zD CUS5O0 R 492 CALL INTPT? 
Q130 «2811 493 JR Z,LS8TS sIF CHECKING SYNTAX 
0132 694 ' RST COPYUP 3SPACE FOR STRING + 1 SPARE (FINAL WUOTE WILL GO THERE) 
O1S3 EL 695 POP HL sHL t—> BEGINNING GF STRING 
0134 D5 £96 PUSH DE 3(SF) &-> BEGINNING OF SFACE FOUR COFY 
O135 7E 697 LST3! LD A, (HL) 
O136 22 693 INC HL 
137 12 G29 LD (DE).A 
Oise 12 700 INC DE 
O139 FEZ? 7O1 cp oc 
O13R 8 20F8 702 JR NZ LSTS 
01300 O7E 703 LO A» (HL) 
OQ1SE 223 704 INC HL 
O13F FEZ2 705 “up cu | 
0141 28F2 706 JR Z,LSTS SIF QUUTE IMAGE 
707 LSrss 3HERE WITH (SP) -> BEGINNING OF STRING, BC = LENGTH + 1 
. 708 $(CHUADD) -> BYTE AFTER TERMINATING QUOTES 
0142 «OB 709 DEC BC BC t= LENGIH 
0144 pit. 710 POP DE 
711 LSTé: sHERE WITH DE -> STRING RESULT, BC = LENGTH, (CH ADU) -> 
712 3 NEXT CHAR, TO RESET BIT NO OF (FLAGS), STACK STRING IF 
: 713 3 RUNNING, & GO OFF TO LOOK FOR OPERATOR. 
0145 9 21385¢ 714 LO HL»FLAGS 
0143 CBB4 715 RES NO, (HL) 
014A CB7E 71. BIT INIPT» (HL) ; 
o14c c40000 Xx 717 CALL NZ; PSHSTR $STACK STRING IF EXECUTING 
O14F c27c02 R 718 ' UP LES . 
719 
720 BRAEXP: BRACKETED EXPRESSION 
0152 721 RST NXT_IS 
0153. cnoo00 R 722 CALL EXFRN 
0156 FKFEZ9 723 CP KET 
0158 Cz000QQ0 xX 724 IP NZSYNERR 
0158 725 RST NXT_IS 
01s C3a7002 R 72 JP LEG 
; 727 
O15F 032703 R 728 FNE JP LFNO 
729 4 
730 : 
731 
732 RND: 
0162 CH3500 R 732 CALL INTFT? 
0165 2828 734 JR Z,LRNDS 31F CHECKING SYNTAX 
725 CODE FOR RMD. 65537 = 2ee16 + 1 15 A MERSENNE PRINE, & 75 
736 3; IS A PRIMITIVE ROOT MODULO IT. WE RUN THROUGH THE POWERS 
737 3; 75 MUL 65537 1N SEQUENCE, STORING THE CURRENT GONE (LESS 1) 
738 $ IN (SEED)$ THE RESULT OF RND IS THE NEXT ONE / 65536. 
739 + ## COULD BE DONE RATHER FASTER IN INTEGER ARITHMETIC ### 
0167 ED4B765C 740 LO BC, (SEED) 


O16B cpadcde X 741 CALL STK_BC 


- 


EXPRESSION EVALUATOR 


EXPRN PAGE 7 
Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
O16E 742 RST CALCTR 
O1LGF Al 743 DEFER CONST+1 
O170 OF 744 CEFR ADL 
O71 34 TAS DEFB LITERAL $75 = 19 # ZHH7 
O172 37 746 DEFBR SS 
0173 16 747 DEFB 14H 
O174 04 748 DEFB TIMES 
OL7S 34 749 DEFB LITERAL §$65537 = .80008 # Z2HH17 
O176 20 730 DEFER SoH 
O177 41 7351 DEFB 65 ; : 
0178 ag 7352 DEFER 0 
O179 oo 733 DEFB O 
-O17A 30 754 DEFE SOH 
O17B 32 735 DErB INTDIV 
o17C Oz 73 DEFER Lose 
o170 Al 737 DEFB CONST+1 31 
OL7E O3 733 DEFBR SUB 2 
Q17F 31 75? DEF LLP 
O180 33 740 DEFB QUIT 
018 CHAGOO X 761 CALL FP2EC 
0184. EN43765C 762 LO (SEED), BC : ; : 
o188 ‘JE 763 LO A, (HL) 7A t= OFFSET EXPONENT CF RESULT 
O139 A7 764 ANL! A 
O18A 2303 7465 JR Z,LRNDS siF RESULT [5 0 
O18 D410 74 SUB 14 SELSE DIVIDE RESULT BY 2##16 BY DOCTORING EXPONENT 
O1SE 47 767 LD (HL).A 
| OLSF 1209 , 763 LRNDS: JR LPIS 
769 
770 
771 
772° «~FWPIs. 
O1PL CD3500 R 773 CALL INTPT? 
O194 2304 774 SIR ZysLPIS 
Q196 775 RST CALCTR ; 
O197 A3 776 DEFB CONST+3 5PI/2 
o19s = 38 777 DEFB QUIT 
O199 34 773 INC (HL) sDOCTOR EXPONENT TO CHANGE FI/2 TO PI 
O19A 77? ~=LPIes RST NXT_IS 
O1°B C32D02 R 780 JP LE34 
781 
732 FUINKYs SHERE TO PROCESS INKEYS. 
733 IF THE NEXT CHAR IS “#%, THEN COUNTS AS THE SINGLE (NUMBER) 
734 “5 STRING OFERATOR INKEY$#3 THE ARGUMENT IS A STREAM NO. 
785 ’ SOTHERWISE, INKEY$ 1S A NILADIC GFERATOR. : 
O1LPE O1SA10 736 LD BC, 16#2546+(INKEY.OR. 1. SHL.6) 
O1AL 7387 RST NXT_IS ; 
O1A2 FE23 739 CP “#- 
O1A4 CA7702 R 789 IP Z,LE425 : ; 
790 sHERE FOR STRAIGHT INKEYS. 
7? 3NB THE ACTIUN AT RUN TIME 13 GIFFERENT FROM THAT OF INKEY$# 
792 3 FOR A STREAM USING THE KEYBOARD. INKEY$# CAN ONLY READ A 
: 793 3 GIVEN KEY DEPRESSION UNCE. . 
OLA7 2123B5C 794 LD HL»FLAGS : . 
OLAA CBB 79S RES NO, (HL) 


EXFRESSION EVALUATOR EXPRN PAGE 3 


Lac CBI CODE M STMT SOURCE STATEMENT ASM 5.9 
OLAC CE7E 796 BIT INTPT, (HL) 
OLAE Z231F I97 ; JR Z,LFYS 
OLHO CLOOOO X 793 CALL KUSCAN 
O1B3 OEOQ TP? LO t,0 
O1ES 2013 ; 00 JR NZ, LFYS 
O1LB7 coo0ed X 801 CALL K BASE 
O1BA SO0E so2 JR NCL LFYS 
OLB 15 803 tec Dp sD t= -1 
O1BD SF S04 : LO ELA 
QLBE Cnoo0ed0 X 805 CALL CHCODE 
O1iti FS BOL . PUSH AF 
o1c2 010100 S07 LD BC,1 
OLS Soe RST COPYUP 
acs Fil so FUP AF. 
O1C7 12 S10 LO (DE).A 
o1cs OEOL Sil LO C.1 
QOLCA 0600 S12 LFY4: Lo B.O 
~ o1ce Cooeeo xX 813 CALL FPSHSTR 
Q1CF: C37coe2 R 814 LFyss JP LES 
S15 
O1D2 Cn2700 R 814 SCREEN: CALL DY_KET 
O1nS C42Aa0o R 817 ' CALL NZ,FLSCRN 3$IF EXECUTING 
O1ns 813 ; RST NXT_LIS 
O1D9 C34501 R S19 JF LSTS 
e20 : 
ape CO2700 R 21 ATTR: CALL DY_KET . 
ODF C42300 R &22 CALL NZ»FLATTR 3IF RUNNING 
O1E2 S23 RST NXTLIS . 
O1ES 1642 #24 JR LE34 
O1ES C02700 R 82 PNT: CALL DY_KET 
O1ES C40000 X 827— CALL NZ,F_PNT 
' QOLEB e235 RST NXT_IS 
.O1eC  183F B23 JR LE34 
S30 
31 LESLs sHERE FOR UPERAND NO! BEGINNING WITH CHAR IN OPDTAB 
S32 5A = CHAR , 
OL1EE Cooo0O X 833 CALL ALNUMY 
OLVF, 30354 e234 JR NCL LE4 SUNLESS CHARACTER ALFHANLMERIC 
O1F3 FE41 B35 CP LETTER+’A” sHERE IF LETTER OR VIGIT 
O1FS 203C B34 JR NCLLESS 
O1LF7 CIsS00 R 2 LEB2: CALL INTRT? SHERE IF DIGIT OR DECIMAL POINT 
‘O1LFA 2023 . 838 JR NZ,LES3 3IF RUNNING 
OLFC° cCooeooe X S32 CALL' STELSN 
OLFF 840 RST IGN 
O2O0 010600 S41 LO BC,NOSIZE+1 
a203 ChOOaO X 842 CALL INSERT 
204 23 S43 INC HL 
O207 340E 44 LO (HL), SLUG 
Oo209 23 B45 INC HL 
aZ0A EB B46 EX DE,HL. 
o20B ZAGSSC ‘B47 LO HL.» (STKNXT) 
O20E OEOS e423 : LO C,NOSIZE 


0210, A7 S49 : AND A 


* 


EXFRESSIUN EVALUATOR 


EXFRN FAGE ? 
Lac OBJ COLE M STMT SOURCE STATEMENT ASM 5.9? 
O211 ED42 S50 SEC HL. BC 
o213 22655C e51 LO (STENXT)»HL 
o2z1& EDsO Si2 LOIR 
O218 EB 853 EX DE,HL 
a219 2B S54 DEC HL 
O21A Ccboo00 X 855 CALL NCLHL 
O21D 180E © B54 JR LES4 
85) 
O21F S53 LESS: RST IGNSP SHL ¢= (CHADD) ; 
0220 23 S59 LESSS: INC HL ; 3NB CAN*’T USE NXT_1S HERE BECAUSE “IT IGNORES SLuG 
O221 7E 840 LD A,» (HL) . 
O222 FEOE 861 CP SLUG 
-0224 ZOFA 862 JR NZ,LES35 
224 23 863 INC HL 
O227 CLOEOO X 8464 CALL STK_M ; . : 
O2Z2A 22505C S65 LO (CHADD). HL 
o22D FUCBOLFS 366 LES4: SET NO. CIY+FLAGS-Y) $ INDICATE NUMERICAL EXPRESSION 
O231 1814 S47 JR LESS : 
$43 : 
S69 LEQ6: SHERE IF LETTER? LOOK FOR VARIABLE : 
870 3NB THIS IS THE ONLY PLACE’ WHERE A CALL UF FIND_N CAN INVOKE 
; 871 3 PARAM (WHICH SEARCHES FOR A USER-DEFINED FUNCTION 
272 3 PARAMETER). 
O233 ChOQ0O X 873 CALL FINOLN 
O234 DAQGOO X 874 JP CL ERR2Z sIF RUNNING & VARIABLE NOT FOUND 
OZ37 cco00o =X 87S CALL 2,GET_EL 3IF ARRAY OR STRING (UNLESS FUNCTION PARAMETER) 
 O23C ZA3ESC 874 LO A, (FLAGS) 
O23F 877 ASSERT (NO=6). AND. CINTFPT=7) 
O23F FECO &/8 CP OCOH : 
0241 S304 a7? JK C, LESS SUNLESS NUMBER TYPE AT RUN TIME 
0243 23 S80 INC HL SHL §-> VALUE 
O244 cooo00 X 881 CALL. STK_M 
0247 1233 eo2 LESS: JR LES 
oR 
B34 3IN WHAT FOLLOWS, AN CFERATION CULE 15 THE CORRESPONDING 
S55 ¢ CALCULATUR INSTRUCTION CODE, WITH BIT 7 SET TO SHOW NUMERIC 
B34 3 RESULT, BIT 6 SET TO. SHOW NUMERIC CRIGHT) OPERAND. 
oHt7 
Soo LeE4s SLOOKING FOR MONADIC OPTR. ASSUMES THEIR TOKENS ARE IN A 
Sey 7 GRUUP FROM LOLMON TO HILMON (EXCLUDING -, VALS & NOT), 
Svo 3 STARTING WITH THE (STRING) NUMBER ONES, THEN THE (NUMBER) 
cae | 3 NUMBER CONES (LONOMG TO HINOMCH), & THEN THE (NUMBER) SPRING 
Bez “3 ONES. NOT IMMEDIATELY FOLLOWS THEM, VALS IMMEDIATELY PRECEDES 
S73 2 3 THEM. ‘ 
S74 3£A — FOR INSTANCE —- (NUMBER) STRING OPERATION IS ONE WHOSE 
B95 3 UPERAND IS A NUMBER, & WHOSE RESULT IS A STRING.] 
O249 O1LBOF B96 LL BC, 9#2546+ (NEGATE, OR. OCOH) SPRIORITY 9, OPN CODE FORK MONAUIC MINUS 
o24c FE2D B97 CP MINUS ; ; 
O24E 2827 83 WR Z,LE425 SIF MONADIC MINUS 
250 011810 99 LO BI, 164#256+VALS 
O253 FEAE 00 CP VALSTK 
O235 2820 O01 JR Z,LE4e5 SIF VALS 
0257 DGAF 702 SUM LOUMON y 
O259 DAQOOO X 903 


JF C.SYNERR- sIF < MONADIC GPTRS,. 


EXFRESSION EVALUATOR 
OB! CODE M STMT 


Loc 


OZ5C 
O23F 
O2Z41 
0263 
0264 
0263 
O246A 
O26B8 
a26L 
O246F 
0271. 
0273 
0275 


Q2/7 
0273 
279 


O2Z7C 
oe 
O27F 
o2e1 
0285 
0287 
ozs 


O29R 


O23 
O2SF 


O20 ° 


O293 
O2ZI6 
a279 
O279 
O27C 
o2?u 
O29E 
O29F 
O2A0 
OZAL 
O2A3 
O2A4 
OZA7 
O2ZAS 
O2ZAB 
OZAC 
Q2AE 
O2B0 
O2B2 


01F004 
FE14 

2a14 
Tr20000 X 


cs 
C30400 R 


FEZS 
zooc 
FDCBO17& 
2017 
choo00 =X 


Z1FFO2 R 


0? 


CA1=200 
cs 
213B5C 


904 
905 
S04 
907 
908 
209 
910 
911 
912 
913 
914 
915 
914 
917 
918 
919 
92 
921 
922 
923 
924 
925 
tls 
927 
928 
929 
930 
31 
932 
933 
934 
P35 
934 
937 
933 


EXPRN 


SUURCE STATEMENT 


LE422: 


LE425: 


LEG: 


LE603: 


LE4O3: 


LE&2s 


LO BC, 4#256+(NUT.OR. OCOH) 


FAGE 10 
ASM 3.9 


3PRIURITY 4. OPERATION CODE FOR NOT 


CP HI_LMON-LO_MUN+1 


JAR Z,LE425 
JP NC, SYNERR 
LO B,16 ‘ 
ADD A, MUNGP 
LO CLA 


sIF NOT 
3IF > MONADIC OPTRS. 
sVERY HIGH PRLURITY 
3A t= OPERATION COVE, WITH TOP 2 SITS SET. 


CP LONUMOQ-LO_MON+MONOP 


JR NC, LE422 
RES 6.C€ 

CP HINOMO-LO 
JR C,LE4Z5 
RES 7,0 


sIF OPERAND IS A NUMBER 
sSTRING UPERAND 


~MON+1+MONOP 


31F RESULT IS A NUMBER 
#STRING RESULT : 


SHERE WHEN MONABIC OPTR FOUND. 


FUSH BC 


. RST NXILIS 


JP LEZ 


3HERE WHEN HAVE GOT OPDs LOOKING FOR OPR. 


e 
? 


= PRIORITY, 


C = OPERATICN COLE, (CHADD) -> OPTR. - 


ASSUMES DYADIC 
GPTRS ARE 31¢.=)+, & ##,0R, AND, <=. 2=2<> 


IN A LATER BLOCK. 


-.#,/ IN A BLOCK, 


3(CHUADO) -> CHAR BEING CHECKED 


RST IGNUSP . 
CP BRA 
dk NZ,LE6OS 


SUNLESS A SLICE 


BIT NG, (LY-Y+FLAGS) 


JK NZ, LE4S&2 
CALL SLICER 
RST NXT_IS 
JR LELOS 


LD B.O 

LO CLA 

LO HL,UP_ TAB 
CALL SEARCH 
JR NT,LEG2 
Lo Ct, (HL) 

LD HL,PRITAB 
AnD HL, BC 

LO B, CHL) 
FPuP DE - 

Lu A.D 

cP B 

JR C,LES 

AND A 

JP Z,IGN SP 
FUSH BC 


Lu HL,FLAGS 


LD AVE 


$ (ACTUALLY A SYNTAX ERROR) IF NO. OPERANL 


3 IF OPERATOR NOT FOUND - MUST BE TERMINATOR (B=0) 
3G t= CPERATOR CODE 


t 


3 PICK UF PRIORITY 
3 


NOW BC SHOWS CURRENT UFR, DE TOP UPR UN STACK 


s IF NEW GFR BINDS TIGHTER THAN OLD 
sELSE INCORFORATE PREFIX 
3IF FINISHED 


CP USR. OR. OCOH 


JR NZ,LE&S 
BIT NO, (HL) 
JR NZ,LE&3 


EXPRESSION EVALUATOR 


EXFRN FAGE 11 
Loc OBJ CODE M STMT SQURCE STATEMENT ‘ ASM 3.9 
O2B4 1E99 933 LO E,USRS.OR.S0H sREPLACE NUMERIC USK BY STHING USR 
OZBS DS 99 LESS: FUSH DE . : . 
O2H7 CO2500 R #40 CALL INTRT? 3 EVALUATE? 
O2BA 2309 P41 JR Z,LE&S6 3 - NO 
O2BC 78 G42 LO ADE 3 —- YES 
O2EBD ES3F 943 AND 3FH 
O2RF 47 964 LO B.A SOPERATION COVE WILL GO' INTO ‘(BREG) 
e200 965 ‘RET CALCTR 
O2C1 3B / 944 EPL XEQTB 
O2C2 33 PS7 DEFB QUIT 
2C3 1809 $43 JR LE4s 
* 969 . ° 
O2c5 7B 970 LEGA: LO AVE 3 HERE IF CHECKING SYNTAX 
OnE FOAEOL 971 XOR (LY+FLAGS-Y) 
O20? 9/2 ASSERT NO=4 
only E640 9/3 AND 1.‘SHL.NG 
O2CB L20000 X 74 LE67: JP NZ.SYNERR $ IF TYPE OF OPNU DIFFERENT FROM REGO. 
O2CE ft 9735 LE&Ss POP DE § HERE ON RETURN FROM EVALUATION 
O2CF - 213B5C 974 LO HL,FLAGS 
o2D2 CAFS 977 SET NO, (HL) 
o204 CB7H 973 BIT 7,E . 
O206 2002 “979 JR NZ,LE6S5 s3iF RESULT [IS NUMERIC 
o208 CBBG 920 : RES NO, (HL) 
o20A C1 721 LE685: FOP 6c : ; 
O2DE 18C1 932 wR LE&2 + SEE IF WANT TO INCORPORATE MORE FREFIXES 
: 983 : 
‘ 984 LES: sHERE IF NEW OFR BINDS TIGHTER: WE IDENTIFY IT USING ITS 
os 3 LEFT OPERAND. 
o200 DS PES FUSH DE § REPLACE PREFIX : 
O2DE 7? V7 LD A.C : , 
o2DF FLITBOL76 Se BIT NO, (IY+FLAGS-Y) 
OOZES 2015 9S9 ° JR NZ,LESS SIF LEFT OPD 15 NUMERIC (THEN RT OPND & RESULT 
- OOZES E4:3F 990 AND 3FH sRESET TOP TWO BITS. / BOTH NUMERIC), 
. OZE7 C4608 DIL ADD A.8 $8 = NO. UF STRING OFNS:s AND, <=,>=,<3>,5,¢,=,+. . 
OZE? 4F 992 LO CLA § ELSE SHIFT CODES 7-E TO BE F-16 : 
OZEA FE10 VIZ CP AND+3 $ SET CARRY UNLESS STRING OPN 
O2EC 2004 oe4 JRO NZ,LES2 SUNLESS STRING ANLL 
OZEE CHF 1 995 SET 6,€ SNUMERIC RIGHT OPERAND 
O2ZFO 1208 P96 JR LESS 
Id7 
O2F2 33L7 GH LES2: JR C,LES67 s;WHENCE TQ SYNERR (NOTE -— NZ HEKE) 
O2ZF4 FE17 I99 cep Ann+3 
“O2F6 2802 1000 JR Z,LES6 SIF STRING + 
O2FS" CEF? 1001 SET '7,C SNUMERIC RESULT 
OZFA cs 1002 LES8é: PUSH BC 3 MAKE NEW FREFIX 
OZFB 1003 RST NXT_IS ; 
O2FC C30400 R 19004 JP LE2 s NOW GO LOOK FOR RIGH] CPERAND 
1005 
10906 OP_TAB: $TABLE OF OPERATION COUES. 
1007 SASSUMES: (1) THE COOES FOR t=, 3=, <>, <. > AND = ARE 
1003 3 CONSECUTIVE IN THAT GRODER, & . ; 
1009 3 (II) THE TOKENS FOR OR, AND, <=, >= AND <> ARE CUNSECUTIVE 
1010 H IN THAT ORDER. 
OZFF 2B 1011 DEFB “+7 


s 


EXPRESSION EVALUATOR EXPRN . PAGE 12 
Loc OBJ CODE M STMT SOURCE STATEMENT . ASM 5.9 
O200 CF 1012 DEFR ADD.OR.OCOH poe ' ! 
g3o1 2 1013 DEFB “-~ 
O202 c3 1014 DEFR SUk.OR.OCOH 
O20 2A 1015 DEFR “#* 
O3G4 c4 1016 DEFB TIMES.OR.OCOH 
O305 ZF 1017 DEFR “/¢ 
206 cs 1013 DEFB DIV.OR. OCOH ae ; ue ee ee ' 
0307 SE 1019 DEFB “*? 
a208 C4 1020 DEFB FOWER. OK. OCOH 
Osa? 30 1021 UEFB “=- 
O30A CE 1022 DEFR GT+2.0R.0COH 
O308 3E 1023 DEFB “>? ‘ 
o30C Cc. 1024 DEFB GT.OR. OCOH ' 
o30D 3c 1025 DEFR “<- 
O20E co 1026 DEFHR GT+1.0R.0COH 
Q3S0F C7 1027 DEFB OR_TK+2 
O310 Cy 1028 DEFB GT-3.0R.0COH : ho : 
O311 cs 1029 QErBR OR_TK+3 . Feb eye eee 4 
O312. CA : 1030 LEFB GT-2.0R.0COH . 
O2123 CP 1031 DEFR ORUTK+4 
O214 CB 1032 DEFB GT-1.0R.0COH 
O315 cs 1033 DEFB OR_TK 
O16. C7 1034 DEFB OR.OR.OCOH 
0317 CS 1035 DEFB ORL TK+1 4 
a318 cs 10346 DEFB AND. OR.OCOH eA xi ee) a eee ee eae 
OS1D 00 1037 HEFE O : 
‘ 1035 : vet ( pen aut heocuaat ta 
1039 PRITAB: _ EQU $-OCOH-SUB $ PRIORITY CODE TABLE 
314A 04 1040 DEFBR & s UYADIC - =. « eel 
S1B os 1041. DEFB & 5 
o31Cc ag 1042 DeErBR & 3 / 
ao310 OA 1043 LIEFB 10 3 #4 vo on ros ' mos 
OS1E o2 1044 DRFR 2 3 OR ' Ve v4 ce ee 
O31F O3 1045 DEF 3 s AND Panta . o . : : 
O320 Os 1044 DEFR 3S 3 <= ' sot . 
O321 Os 1047 DEFER S 3 >= : ' 
O322 OS 1048 DEFB S 3 <> 
0323 05 1049 DEF S 3 > ' 
Os24 Os 1030 DEFB S 3 < 
0325 OS 1051 DEFB $5 3 = 
0326 06 10352 DEFB & 3 0+ ' \ 


e 


EXPRESSION EVALUATOR 
OBJ CODE M STMT 


LOC 


O333 
O334 
O3346 
O337 


0339 


O23A 
O23C 
OS3E 
O33F 
_O341 


O243 
O34 
O347 
O349 

34B 
o34C 


O24E 
O250 
0253 
O254 
0357 
O259 
O35A 
ossc 

(O35E 


03461 
O362 
O364 
O365 
O366 
0363 
O269 
O26B 


CD3500 
2035 
cDe000 
DzZ0000 
FEZ4 
FS 


2001 


FEZS 
2012 


FE29 
2310 
CoO0dO 


FE2C 
2003 


FEZ9 
20000 


213B5C 
CBB4 


C327C02 


EDF 
47 


D424 
4aF 
2001 


R 


x 
x 


ea 


1053 
10354 
1055 
1054 
1057 
1058 
1059 
1040 
1061 
1042 
1063 
1044 
1065 
10646 
1047 
1043 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1074 
1077 
1078 
1079 
190280 
1031 
1082 
1083 
1034 
1085 
1086 
1087 
1088 
1039 
1090 
10971 
1092 


» 1093 


1094 
1075 
1096 
1097 
1098 
1099 
1100 
1101 


1102: 


1103 
1104 
1105 
1104 


EXPRN PAGE 13 
SUURCE STATEMENT ASM 5.9 
#EJECT 
LFNOs sFN LETTER C$ 7 ( C EXPRN Cy EXPRN J* 7 ) 
SPRESERVES (DEFALD) 
CALL INTPT? 
JR NZ»LEN4 
sHERE TO CHECK THE SYNTAX OF A USER-DEFINED FUNCTION CALL 
RST NXT_IS 
CALL ALPHA? 
JP NC» SYNERR 
RST NXTWIS 
cP °$- . 
‘PUSH AF +Z FOR STRING, NZ FOR NUMBER. 
JR NZ,LFN22 3iF NUMERIC FUNCTION 
.RST NXT_IS 3SKIP GVER “#7 
LFN222 UP “(- 
JR NZ,»LFN4 SWHENCE TO SYNERR 
RST NXT_IS 
cP *)- 
JR Z,LFN32  ~  $1F NO ACTUAL PARAMETERS 
LFN2S# sHERE WHEN EXPECTING ACTUAL PARAMEIER AT CURRENT CHAR. 
3(SP) HAS A FLAGS BYTE SHOWING’ Z FOR STRING 1YPE RESULT. 
CALL EXPRN 
RST IGN_SP 
CP 7,7 
JR NZ»LFNS 
RST NXT_IS 
JR LFN2S 
LFNG3: CP“)? 
LFNSI: JP NZ»SYNERR 
LFN3S2Z RST NXT_IS 
LO HL,FLAGS 
RES NO, (HL) 
POP AF +Z FOR STRING TYPE RESULT 
JR Z,LFNSS 
SET NC. (HL) 
LFN3SS: JP LES 
LFN4: sHERE TO EXECUTE USER-DEFINEUY FUNCTION CALL. WE MUST 
$¢1) FING CORRESPONDING DEF STATEMENT 
, $@IT) EVALUATE ACTUAL PARAMETERS. & PUT THEIR VALUES IN THE 
: 3 SLUGS BY THE FORMAL PARAMEIERS, CHECKING THE TYPES. FOR 
+ STRING PARAMETERS, WE ASSUME THAT THE SIKINGS THEMSELVES 
: (WHICH ARE MERELY POINTED fO BY THE VALUES IN THE SLUGS) 
+ DO NOT MOVE WHILE THE FUNCTION IS BEING EVALUATEL. 
RST NXTW1S 
AND 11011111B $A ?= NAME OF FUNCTION, IN UPPER CASE 
LO BLA 
RS1 NXTWIS 
SUB“? +A t= 0 FOK STRING FUNCTION, “(°-°$* FOR NUMERIC 
LO CA 
JR NZ»LFNS SIF NUMERIC 


RST NXT_IS S(UCHUADD) t-> °¢¢ 


ae 


EXPRESSION EVALUATOK EXPRN . FAGE 14 


Loc OBJ CODE M STMT SOURCE STAIEMENT ASM 5.9 
O36C 1107 LFNSt RST NXT_IS sMOVE (CHADD) PAST “(/ 
O26D ES 1108 PUSH HL 
036E 2A535C 1107 LD HL, (PROG) 
0371 2B 1110 DEC HL 
1114 LFNSi: SHERE TO LOOK FOR NEXT DEF STATEMENT. 
1112 sHL -> A PLACE THAT SKIP CAN SEARCH FROM 
1113 3B = LETTER (UPPER CASE) FOR NAME OF FUNCTION 
1114 3C = 0 FOR STRING VALUED RESULT, “(¢-"$* FOR NUMERIC 
1115 3(SP) -> CHAR AFTER “(’ IN ACTUAL PARAHETERS 
0372 11CE00 1116 LO DE, O&F_TK sD t= 0, E t= eEF_TK 
0375 «CS 1117 - PUSH BC 
0276 CHOOOO Xx 1118 CALL SKIP . 
0279 C1 1119 FOP BC 
037A 3002 1120 JR NC LFNS2 31F A DEF STATEMENT FOUND 
037C 1121 ERRP: RST ERROR SERROR P, FUNCTION DEFINITION NOT FOUND 
o37D «18 1122 DEFB “P*-“A‘+9 
1123 
O37E ES 1124 LFNSZ: PUSH HL 3(SP) => DEF 
O27F Chis04 R 1125 CALL NXTOHL HHL $-> NAME OF FUNCTION WHOSE DEFN WEVE JUST FOUND 
0382  E6DF 1126 AND 11011141B $A t= NAME IN CAPITALS 
o284 ° BS "4927 CP B 
0285. 2008 | 1123 JR NZ»LFNS7 IF NAME WRONG 
O3#7. CD1S04 R 1129 CALL NXTOHL 
038A D424 1120 SUB “$- $A t= O FOR STRING, *(¢-"$* FOR NUMERIC 
o38C «BY 1121 cP Cc ; 
o2eD © 260C 1132 UR Z,LFN6 $TYPE RIGHT, SO DEFINIT1UN FOUND . 
' 1123 LFNS7:° sHERE WHEN DEF STATEMENT NUT [HE RIGHT ONE. 
1124 +(SP) -> DEF 
1135 3(SP+2) -> 1ST CHAR PAST “(¢ IN ACTUAL PARAMETERS 
1134 + B = NAME (CAPS), C = 0 OR *(*-"$~ 
O28F EL 1137 POP HL 
0270 2B 1128 DEC HL 
oz91 110002 | 1139 LD DE, 200H 3Dte 2, E ts 
0294 «C5 1140 PUSH BC 
0395 CDOOCQOQO xX 1141 CALL SUBLN41 sHL t-> NL OR “f* AT ENU OF DEF STATEMENT 
0398 C1 1142 POP 68C 
o399 18D7 1143 JR LENS1 'TRY ANOTHER DEF STATEMENT 
1144 
(1145 LFN6: sHERE WHEN DEFINITION FOUND & WE WANT TO EVALUATE THE 
1144 3 PARAMETERS. 
1147 sHL -> CHAR AFTER NAME LETTER IN UEFINITION (“$* OR “(~) 
1148 $A = (HL)-*8" 
1149 3(SP) WE CAN FORGET 
1150 2 4$¢SF+2) = GOLD (CHADD), -> CHAR AFTER “(* IN ACTUAL: PARAMETERS 
O29B AT 1151 AND A 
oz9c = 601504 oR: 1152 CALL Z,NX1-HL $IF STRING — HL #-> “(¢ IN DEFINITION 
O39F oD 1153 PUP DE 
ozAo)| oD 1154 POP DE 
O3A1 EDSS505C 1155 LD (CHADD), DE 
o2A5 CDI504 R 1156 CALL NXT_HL 
ozas = ES 1157 PUSH HL H¢SP) #= HL t-> CHAR AFTER “(“ IN DEFINI110N 
O3A9 = FE29 113 cP “)- 
O3AB 2842 1159 JR Z,LFEN7 3IF NO FORMAL PARAMETERS 


1140) LFN62: sHERE WITH HL -> LETTER OF A FORMAL PARAMETER, 


EXPRESSION EVALUATOR EXPRN PAGE 15 


Loc OBJ CODE M STMT SQURCE STATEMENT ASM 35.9 
1141 3(CHUALY) -> CORRESPONDING ACTUAL PARAMETER 
O3A0 23 1162 “INC HL ‘ 
O3SAE 7E 1143 LO A» CHL) 
OSAF FEOE 1144 CP SLUG 
OSB1 1440 . 1145 LD D,1.SHL.NO 
O3B3 2307 1166 JR Z,LFNG4 siF NUMERIC PARAMETER 
OSnS 2E 1147 DEC HL 
OSHS CD1504 R 11468 CALL NXTWHL SHL 8—> “$7 
O3bo 23 1149 ING HL ' 
O3BA 1400 1170 LD Do 
OSB 23 1171 LFN64s INO HL 
: 1172 . s$HERE WITH HL -> 1ST DATA BYTE OF A SLUG 
1173 SBIT NO UF D SHOWS TYPE OF FORMAL PARAMETER 
1174 3(SP) -—> CHAR AFTER “(’ IN DEFINITION (FOR (DEFADDD)). 
OSBD ES 1175 PUSH HL , 
O3SHE DS 1176 PUSH DE 
O3BF CHOOOO R 1177 CALL EXFRN : 
O32 Fi 1173 POP AF | 
o3st3 ° FDAEQL 1179? —. XOR (CLY-Y+FLAGS) 
OBS E440... 1120 ; AND 1.SHL.NU 
O2cts 202B 1151 _ aR NZ, ERRQ 3IF ACTUAL PARAMETER HAS WRONG TYPE 
OSCA El 1182 FOP HL 
O2CB ER 1132 , EX DE,HL 3DE :-> 1ST DATA BYTE UF SLUG 
o3cc 2A655C 1184 LD HL, (STKNXT) ‘ . 
O=SCF 0103500 1135 LO ac,NOSIZE e 
O32 E42 1134 SBC HL,BC 3NB CARRY WAS CLEAR. HL #-> VALUE ON CALCTR STACK. 
o2D4 226550 1137 LO (STKNXf).HL 
O3LD7 EDHO 1133 LUIR 
osny ER 1189. EX OE,HL 
O3UA 2B 1190 DEC HL SHL &-> LAST DATA BYTE OF SLUG 
Pat) 8 COo13504 R 1191 CALL NXT UHL SHL &-> “2° UR “)” IN FORMAL PARAMETERS 
OSDE FE2? 11iv2 Cro) : 
OSEO 2600 1193 JR Z,LFN7 3IF NO MORE FORMAL FARAMETERS 
OZE2 . ES 1194 PUSH HL ; 
O3E3 1195 RST IGNOSP 
OSE4 FE2C “1196 CP *,7 
OSES 200D 1197 JR NZ,ERRG s1F Toc FEW ACTUAL PARAMETERS 
OSES 11?s RST NXT_IS 3 (CHADD) *:-> NEXT ACTUAL PAKAMETER 
OSE? El 1199 FOP HL - 
O3EA Cuis04 R 1200 CALL NXTOHL 3SKIP HL OVER “2% 
OED 1SBE 1201 JR LFN6é2 SFUR NEXT FORMAL PARAMETER 
1202 
1203 LFN7: ” sHERE TO EVALUATE RESULT WHEN NO MORE FORMAL ERRE Tels 
1204 _ sHL -> “)% AFTER FURMAL PARAMETERS 
1205 , 3(CHUADD) -> %)% AFTER ACIUAL PARAMETERS 
1204 : $(SP)> -> CHAR AFTER “(7% IN FURMAL PARAMETERS 
OSEF ES 1207 FUSH HL 
O3FO 1203 RST IGN_SP 
O3F1 © FE29 1207 CP 7)? 
OZF3 2302 1210 JR Z,LFN72 SUNLESS TOW MANY ACTUAL PARAMETERS 
OSFS : 1211 ERRG: RST ERROR SERRUR Q@, PARAMETER ERRUR (WRONG TYPE OR WRONG NUMBER ) 
OBE 19 1212 DEFBR “t“-“A‘+9 
1213 ; 


1214 LFN72: 3(SP+2) = CHAR AFTER *«)” IN FURMALS (FOR (DEFALW) ) 


EXFPRESSIUN EVALUATOR EXPRN PAGE 14 
Loc OBJ CODE M STMT SOURCE STATEMEN1 ASM 5.9 
1215 3(SP) -> *)* AFTER FURMALS 
1214 sHL = (CHLADU) -> “)* AFTER ACTUALS 
O3F7 Dt 1217 POP DE 
O3FS EB 1213 EX LE,HL SDE 8-> “)* AFTER ACTUALS 
O3F9 Z225D5C 1219 LO (CHUAQD),HL 3 (CHADD) -> “)" AFIER FURMALS 
O3FC 2A0B5C 1220 LU HL» (DEFAUD) 
OSFF ES 1221 EX (SF).HL 
0400 220B85c 1222 LD (DEFADDN)» HL 
0403) OS 1223 PUSH DE 
1224 SNOW (SP+2) = QLD (DEFADD), 
1225 3(SP) -> “)* AFTER ACTUALS 
, 1226 $(CHAUD) -> “)* AFTEK FORMALS 
o4a4q 12:27 RST NXT_IS s(CHADD) 8-> “=~ 
0405 1228 RST NXT_IS 3(CH_ADD) :-> RESULT EXPRN 
0406 cbodcdde 1229 CALL EXPRN 
o409 EL 1230 POP HL 
O40OR =22505C 1231 LD (CHUADO)»HL 
o40n EI 1232 POP HL 
O40E 22085C 1233 LD (DEFADD).HL 
0411 1234 RST NXT_IS ~ $(CH_ADD) #-> CHAR AFTER “)’ OF ACTUAL PARAMEIERS 
0412 . C37C02 1235 UP LES 
° 1236 : 
1237 NXT_LHL: sINC HL (AT LEAST ONCE) UNTIL IT POINTS TO A CHAR > ’” 7%. 
123% 3A t= (HL) 
Bay 3PRESERVES BCDE 
1240 SASSUMES COMPOSITE CHARS EMBEDED IN PROGRAM HAVE DAIA BYTES 
1241 ; or ar oe 
O415 23 1242 LNL2: INC HL 
0416 JE 1243 LD A, (HL) 
O417 FE21 1244 CP’ “+1 
0419 3&FA 1245 JR C.LNL2 
O41B C9 1246 RET 
1247 
1248 END 


X\X\ 


pzd 


ary | 


% 


READ IDENT, FIND VARIABLE IDENT PAGE 1 


— Loc OBJ CODE M STNT 


1 
419 
420 
Azt 
422 
423 
424 


ee 
eet 


424 
42 
428 
. 429 
420 
qt 
432 
433 
424 
435 
436 
437 
: 433 
439 
440 
441 
442 
443 


445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
454 
457 
459 
459 
460 
461 
4&2 
4G3 
464 
465 
464 
447 
468 
469 
470 
471 


SOURCE STATEMENT ASM 5.9 


#+HEAB READ IDENT, FIND VARIABLE 
#LIST ON 
_ GLOBAL LET, ALFHA?, ALNUM?, DIM, POPSTR, PSHSTR, SLICER, FINDLN 
GLOBAL GET_EL,.PAEDCE 


EXTERNAL INSERT. XT HL sEDIT 
EXTERNAL RECLEN, DELREC, DEL_DE sLIST 
EXTERNAL SYNERR, TEMG, END?» FIX_U,ERR4, ERR2, INTPT? 3 SYNTAX 
EXTERNAL NXTLHL sEXPRN 
EXTERNAL STK_UBC,FP2EC, DIGIT? -—  SINGUT 
EXTERNAL MULT 3 SUMS 
EXTERNAL RAMNG, ROOM? ; sCALC 


sFORMATS OF VARIABLE RECORLIS=: ; 
3(1) NUMBER, SINGLE LETTER IDENTIFIER: 
5 1 BYTE FOR LETTER WITH TOF 3 BITS = O11 
S BYTES FOR VALUE, 
(II) NUMBER, LONG IDENTIFIER: 
1 BYTE FOR INITIAL LETTER WITH TOP 3 BITS = 101 
1 BYTE EACH FOR REMAINING CHARS OF NAME, BIT 7 = 1 FOR LAST, BIT & 
DISTINGUISHES LETTERS FROM DIGITS, BIT 5 = 1 
BYTES FOR VALUE. 
NUMBER” ARRAY: 
BYTE FOR NAME, TOP 3 BITS = 100 
BYTES FOR TOTAL LENGTH OF ELEMENTS & DIMENSION, +1 FOR NUMBER GF DIMS 
BYTE FOR NUMBER OF DIMENSIONS 
BYTES EACH FOR DIMENSIONS 
BYTES EACH FOR ELEMENTS. 
(Iv) CONTROL VARTABLEs ' 
BYTE FOR NAME, TOP 3 BITS = 111 
-BYTES FOR VALUE 
BYTES FOR LIMIT 
BYfES FOR STEP 
BYTES FOR LOOPING STATEMENT. 
(YV) STRING: 
1 BYTE FOR NAME, TOP 3 BITS = O10 
2 BYTES FOR NUMBER OF CHARACTERS 
1 BYTE EACH FOR CHARACTERS IN TEXT. 
(VI) CHARACTER ARRAY: 
1 BYTE FOR NAME, TOP 3 BITS = 110 
2 BYTES FOR LENGTH AS IN NUMBER ARRAY 
1 BYTE FOR NUMBER OF DIMENSIONS 
2 BYTES EACH FOR DIMENSIONS 
1 BYTE EACH FOR ELEMENTS. 
IDENTIFIERS, CAPITALS & LOWER CASE LETTERS ARE ALL CONVERTED TO LOWER CASE 
(BY SETTING BIT 3S, WHICH LEAVES DIGITS UNALTERED). 


~ 
-_ 
Lond 
L ond 


OF cl bd a ae 


atta cam 


ve wa ws we we we ve ve ws ws we ve we ve we we us we we ve ws we ws we ws ws ve 


7" 
oS 
al 


FINDLN: SSEIPS (CH-ALD) OVER IDENTIFIER. 
SADIUSTS BIT NG OF (FLAGS) FUR TYPE. 
SRETURNS NC IF FOUND GR CHECKING SYNTAX. 
TRETURNS 2 IF ARRAY (I.E. *(% PRESENT IF VARIABLE NOT FOUND OR 
§ CHECKING SYNTAX, & ARRAY OR STRING IF RUNNING & VARIABLE — 
5 FUUND) : 
IF RUNNING, THEN HL #-> 


° 


READ IDENT, FIND VARIABLE 


Loc 


rayeyayi) 
ado4q 
0008 
oOo008 
OOOR 
Ooo 
QO0E 
QOOF 


Oo1d © 


oOo11 
OOLS 
oo15 
OO1L7 
OOL? 
oo1B8 
oo10 
ag02z0 
ooz2 
OO23 
OO27 
oo27 

O02A 


O02 
o02n 
Oo31 
0034 
O035 
Q037 
Q03A 


oo3n 
OOSE 
OO4L 
0043 
0044 
0046 
OO4S 
O049 


O04, 


IDENT 


OBJ CODE M STMT SOURCE STATEMENT 


FOCBOIFS 


CODEOS 
[20000 
ES 
EG1F 
4r 


ES 
FEZ3 
2823 
CRF 1 
FEZ4 
2311 
CBRE? 
COULOZ 
B00F ' 
COD603 
3016 
CBBI1 


15F4 


" FDCBOLBS 


SAOCSC 
A7 
2306 
CoHaoOO 
C2PFO0O 


41 - 
CDOOOO 
2003 
7? 


ZA4BSC 


R 
X 


R 


R 


ax 


472 
473 
474 
475 
476 
477 
478 
479 
430 
421 
482 
4a 
44 
435 
4B 
487 
42g 
457 
490 
aot 


492 


AVS 


44 


QP 


496 
497 
47a 
499 
500 
SOL 


S02 


Sos 
504 
S05 
SOG 
507 
S08 
509 
510 
Sid 
S12 
513 
S14 
S15 
514 
S17 
518 
Si? 
520 
S21 
522 
523 
524 


S25 


LFN1I2: 


LFNi4: 


LFN1I425 


LFNLS: 


LFNI7s 


c 


PAGE 2 
ASM 5.9 


LAST CHAR GF IDENTIFIER IN RECORD IF FOUND (NC), 
1ST CHAR OF IDENTIFIER IN TEXT IF NOT (C). 
t= 15T CHAR OF NAME WITH BITS 5 & 4& RIGHT. BIT 7 OFF. 


IF CHECKING SYNTAX, (© GETS BITS 0-4 OFF, S & 6 RIGHT AS ABOVE, 


BIT 7 ON. 


NB IF THE IDENTIFIER IS FOUND AS A FORMAL PARAMETER IN A USER- 


5 
3 
3 
5 
5 & 
3 
i 
$ 


3 THE 
3 


DEFINED FUNCTION, THEN THE RETURN FLAGS & HL ARE 
DIFFERENT ~- SEE PARAM. 
ONLY CALL GF FINDLN FOR WHICH THIS CAN HAPPEN IS THAT AT 


LE36 IN EXPRN. 


SET MO, (1TY-Y+FLAGS ) 3FUR NO. TYPE 


RST IGN USP 
CALL ALFHA? 
JF NZ, SYNERR 
PUSH HL 

AND 1FH 

LO CLA 

RST NXT_IS 
PUSH HL 

CP BRA 


WR Z,LFNIS 


SET 6,0 

CP DOLLAR 
JR Z,LFN1L4 
SET 5.¢€ 
CALL ALNUM? 
JR NCLLFNI42 
CALL ALNUM? 
JR NCYLFNIS 
RES 6,0 

RST NXT_IS 
JK LFNI2 


RST NXT_IS 


SIF DOESN“T START WITH A LETTER 

3(5P) @*-> 1ST LETTER 

sCONVER!T MS BITS TO 000 TO MAICH NUNBER ARRAY 
$C t= 1ST CHAR . 

$(5F) 8:-> 2ND CHAR IN TEXT 


§ IF NUMBER ARRAY 
3 010, TO MATCH STRING OR CHAR ARRAY. 


+ IF STRING OR CHAR ARRAY. 
§ ELSE O11, TO MAICH 1-CHAR NUMBER OR FOR VARIABLE 


$1F 1-CHAR NUMERIC VARIABLE 


$1F NOT ALPHANUMERIC : 
: 7001, TO MATCH MULTICHARACTER NUMBER " 


sSEIP $ 


RES NO, (IY-Y+FLAGS) sSTRING TYPE 
LO A, (DEFADD+1) 


AND A 

WR Z,LFNLS 
CALL INTPT? 
JP NZ,PARAM 


SUNLESS EVALUATING USER-DEFINED FUNCTION 
SNB FUNCTION WEFN COULD CONTAIN VAL 
STRY FORK FUNCTION PARAMETER IF EXECUTING 


sHERE TO LOOK FOR RECORD AMONG GLOBALS. 


AC = 


1ST BYTE TO MATCH, BUT WITH BIT 7 OFF. 


$(3P4+2) -> 1ST LETTER IN IDENTIFIER IN (EXT 
. $(¢SP) -> 2ND CHAR IN IDEN'TIFIER IN TEXT 


Lo BC 
CALL INTFT? 
JR NZ>.LFN17 
LO AG 

AND OFOH 
SET 7,A 

LO CLA 

JR LFN42 


LO HL,» (VARS) 


$187 APPROX TO RETURN FLAGS (BIT 7 FOR C, S FOR NZ) 


sIF RUNNING 


xs) 


~ 


4 


REAL 
Lac 


OO4E 
OO4F 
Oot 
OOS 
OOs4 
OORS 
QO%7 
QOO0SS 
OosB 
oosD 
OOSE 
OOeF 
OOEO 
O61 
OO42 
QOGS 
OOLS 
0067 
OO4D 
QQ46A 
Oo460 
OOGE 


QOLF . 


O07 1 


o072 


OO7S 
O077 
Oo73 
O07 
O07C 
0070 
OO7E 


QOR2 
Noss 
oon4 
O084 
Ooo ee3 
oos 


Oo 


aosD 
QORE 
OOSF 
ag?va 
ool 
OoO74 
Q0946 
0097 


IDENT, FIND VARIABLE IDENT 
OBI CODE M STMT SOURCE STATEMENT 
7E S26 LFNiS: LOD A,» (HL) 
E47F S27 AND 7FH 
282 S28 JR 2Z,LFEN4 
Ey S20 CP oC 
S022 S00 IR NZ LFNSS © 
17 S31 RLA 
&7 S32 Aun ALA 
F28000 R S33 WIP Py LFNS2 
B30 S24 JR C,LFENS2 
D1 S38 POP DE 
nS S34 PUSH DE 
ES S37 PUSH HL 
23 S38 LENZ: INC HL 
1A S39 LFN22: LO A, (DE) 
13 S40 INC DE 
FEZO =41 ea 
ZoFA S42 AR Z,LFN2 
F420 543 OR OOLOOQOOR 
BE 544 CP (HL) 
25F 4 S45 JR Z,LFN2 
“F4RO 344 OR SoH 
BE S47 CP CHL) 
2008 S428 JR NZ.LFN3 
1A S47 LU A, (DE) 
COoo603 R S50 CALL “AL.NUM? 
3015 S51 JR NG, LFENS 
El ' SS2 LENS: “POP HL 
cs S33 LFNSS: PuSH BC 
cooo0g X S54 CALL RECLEN 
ER S55 EX DE,HL 
Ci SS4 POP BC 
1SCeE Sa7 JR LFN1S 
baba] 
S59 LFN4: 
540 
CEFS B41 SET 7,8 
S42 LFN42: 
Dt S43 POP DE 
544 RST IGNOSP 
FEZS S45 CP BRA 
2809 SO4 “WR Z,LFNS4 
CRES S67 SET 5,6. 
180D S48 JR LENSS 
: 549 “ 
1 S70 LENS: FOP De 
B71 LFNS2s sHERE - 
01 S72 FOP DE : 
D1 S73 PoP DE 
ES S74 PUSH HL 
S75 RST LGNSP 
COD403 R S74 LFNS4s CALL ALNUM? 
2002 577 JR ONC, LFNSS 
S73 RST NXT_IS 
a7? JR: LFNS4 


18F8 


SHERE WHEN VARIABLE NOT FOUND; 
3 (CHADD) -> WHERE “(* MIGHT BE, 


sHERE ALSO WHEN 
SDE &-> 


s 
, 


PAGE 3 
ASM 3.9 
HERE WI1H C = "NAME" PART, 
§ (SP) -> NEXT CHAR IN TEXT, 


IF RUN GUT GF 


RECORDS TO TRY 


HL -> NEXT RECORD, 


B = APFROXN TO RETN FLAGS 


sHERE WHEN FOUND RECORD WITH REQ@D 1ST BYTE 


3 IF WAS 010 (STRING) GR 100 OR 110 (ARRAY) 


IF O11 


(1-CHAR NUMBER) OR 111 (FOR VARIASLE). 


sHERE IF 101 (MULTI-CHARACTER NUMBER) 


DE 


® 
? 
ry 
? 


HL t-> NEXT 
Aé 


SIGNORE SPACE 


SLETTERS ~> LOWER CASE, 


CSP) 


s-> ZND CHAR IN TEXT 


f-> 1ST CHAR IN RECORD 


CHAR IN RECORD 


s= NEXT CHAR IN TEXT 


DIGITS PRESERVED 


SUNLESS RECORD IVENT STRICTLY BEGINS TEXT IDENT - 


sDISCARD POINTER TO 
WHEN NANE FOUND 
sDISCARD FOINTER TO 
SDE &-> 1ST CHAR IN 


Ss HERE 


TO TRY NEXT RECORD 


CHECKING SYNTAX 
2ND CHAR IN TEXT 


(SP+2) -> 1ST CHAR IN TEXT, 


+ CHANGE ONLY IF UNSLICED SIRING 


+ (SP) 


TEXT 
s~-> 1ST CHAR OF ID. 


31F NOT ALFHANUMERIC 


1ST CHAR IN RECORU 


Z2ND CHAR IN TEXT 


IN RECORD 


2 


READ IDENT, 


Loc 


_OOUF 
QOAZ 
Q0AS 
OOAS 


QOAS 
OOA? 
OOAB 
QOAC 
ooan 


QOAE | 


OOBO 
QORZ 
OORS 
ODORS 
QOB7 
OORD 
QOBRA 
OOBE 


QOORD 
QOORD 
QOBE 
QOBF 
OOO 
oot! 
o0Ccz2 
oocs 


IDENT PAGE 


FIND VARIABLE 4 
OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
580, 
S81 LFNS6: sHERE IN ALL CASES WITH (SP) = VALUE FOR HL, B SHOWING FLAGS 
5e2 ; (BIT 7 FOR C, BIT S FUR NZ). 
E1 Se FOP HL 
CB10 5e4 RL B sHERE WITH BIT 7 OF B FOR CARRY, BIT 5 FOR NZ. 
CE70 Ses BIT 6B 
ce 5S6 RET 
: 587 
Sas PARAM: #HERE TO MATCH NAME (LETTER GR LETTER $) AGAINST FORMAL 
539 eS PARAMETERS. 
S90 3(SF+4) = RETURN ADDRESS FROM FIND_N. 
591 3(SP+2) ~> 1ST LETIER [N NAME 
592 : 3(SP) -> 2ND CHAR IN NAME 
593 #HL = (CHADD) -> CHAR AFTER NAME. 
594 #C = LETTER, BUT WITH BITS 745 = 010 FOR STRING, O11 FOR NO. 
S95 +(DEFADD) -> CHAR AFTER “(*° IN FUNCTION LIEF. 
56 SIF NAME FOUNU AMONGST PARAMETERS, THEN RETURNS FROM FIND_N 
597 ; WITH NC+NZ. 
ave ; IF STRING TYPE, THEN VALUE.IS ON CALCTR STACK & HL IS 
S99 ; SMASHED 
. 600 ; IF NO. TYPE THEN-HL -> SLUG 1 BYTE BEFORE THE VALUE. 
601 31F NAME NUT FOUND, THEN JUMPS TO LFNIS WITH THE STACKS & C 
402 ; UNCHANGED, TO TRY THE GLOBALS. 
603 #NB ONLY INVOCATION OF PARAM IS AT RUN-TINE FROM LES6 IN 
604 ; EXPRN VIA FINDLN. - 
ZAOESC 605 LD HL, (DE FADD) 
7E £06 LD A, (HL) 
FEZ? 407 CP“)? 
CAZI00 oR 408 JP Z,LFNIS VIF NO FARAMETERS TO SEARCH 
609 LPMZ: sHERE TO CHECK PARAMETER: HL -> LETTER 
7k 610 LD A (HL) 
F460 611 UR 011000008 SBITS 765 t= O11, TO MATCH C IF NO, 
47 412 LD B.A 
23 613 INC HL 
7E 614 LO A, (HL) 
FEOE 615 cP SLUG 
2807 416 JR Z,LPM3 +IF NUMERIC PARAMETER 
2 417 DEC HL 
cneeeo =X 418 CALL NXT-HL sHL t-> “H~ 
23 419 INC HL ; 
CRAs: 620 RES 5.8 3TO MATCH GC IF STRING 
8 621 LPM3: LD AB | 
BY 22 cPc 
2812 623 JR Z3LPMS sIF MATCH 
624 sHERE TO TRY NEXT PARAMETER 
625 sHL -> SLUG OF LAST ONE 
626 SSERT NOSIZE=5 
23 G27 ING HL , 
23 423 INC HL 
23 629 INC HL 
23 630 INC HL Ye levee VEE ol CS ~ 
23 621 INC HL 3HL | #-> LAST DATA BYIE UF SLUG 
choo00 =X 432 CALL NXTOHL SHL 2-> 4° -OR “)° 
FEZ9 633 CP +)¢ 


6 


4 


READ IDENT, FIND VARIABLE IDENT PAGE 5 


Loc Of CODE M STMT SOURCE STATEMENT ASM 5.9 

QOn7 CASDOO R 434 JF Z,LFNLS VIF NONE OF THE FARAMETERS MATCH - TRY GLUOBALS 

OOCA Chooag X G35 © CALL NXTLHL : 

oocn Bn? 436 JR LPM2 sTRY ANOTHER PARAMETER 
437 

: 633 LPMSs: *HERE WHEN MATCH FOUND WITH HL -> SLUG 

OORF CR49 639 BIT 5.€ 

oond 2000 640 AR NZ» LEMS 3IF NUMBER - DON’T STACK 

OOD 23 641 INC HL 

OOn4 EDSBG6S5C 642 LO DE, (STENXT) 

Ook COOOdO X 643 CALL RAMNG 

QODE EB 644 . EX DE, HL 

oon 22655C 645 LD (STKNXT)»HL 

QODF D1 446 LPMé&: POP DE 

OOO D1 647 FOP DE 

OOk 1 AF GAS XOR A 

OOEZ 3c 649 INC A s3ET NC.NZ 

OOES CP” 650 ’ RET sFROM FINDLN 

651 

452 GET ELS sFINDS STRING OR ARRAY ELEMENT. 
623 ; 3(CHUADD) -> “(* GR CHAR AFTER “’#°., 
654 ; sf IS AS ON RETURN FRUM FIND_N 
655 SIF RUNNING, HL -> IDENTIFIER IN RECORD, & ON RETURN 
454 , 3 (I) IF NG. TYPE, HL -> 1 BYTE BEFORE RESULT ; 
6357 + (II) LF STRING TYPE, BIT 1 OF (FLAGX) = © FOR STRING, 1 FOR 
653 3 CHAR SLICE, & VALUE IS ON CALCTR STACK. ; 
659 sSMASHES A*F*B’C“D“E” 

OOE4 AF ' 660 xOR A 

QOES 47 G61 LD BLA 

QOOES CB79? 6642 BIT 7.C 

QOOES 2048 &43 JR NZ, ARYELT sIF CHECKING SYNTAX (MUST BE ARRAY, NOT STRING) 

QOEA CR7E 644 BIT 7+ (HL) 

OOEC 200E 663 — JRONZ,LGLS + IF ARRAY 

QOEE 646 SSERT FLEX=0 

‘OORE  . 30 647 INC A SNOT PRUCRUSTEAN ASSIGNMENT 

OOEF 23 663 LGL4S5: INC HL 

QOFO 4E 469 LO C, (HL) 

OOF 1 23 470 INC HL 

QOOFZ 46 G71 LO BE, CHL) 

OOF3 23 6/2 ING HL 

OOF 4 EB &73 EX DE.HL 

OOF CoHooadd2 R 674 CALL. PSHSTR 

OOFS 475 RET IGNS 

OOF? | C3v701 R 676 IP LAT47 sFOR SLICING 
&77 / : 
6473 LGLS: ; FARRAY. HL -> VARIABLE, © = NAME, DE -> ¢( OR CHAR AFTER 

OOFC 23 &/9 INC HL ‘ a8 

OOrFD 23 480 INC HL 

QOOFE 23 621 INC HL 

QOFF 46 632 LO B, (HL) 3B t= NO. OF SUBSCRIPTS 

O100 B71 Gi BIT 6.¢€ : 

0102 230A ‘ 634 JR Z,LGLE 31F NO. ARRAY 

0104 Os 685 DEC B 


O105 28ES 436 JR Z,LGL45S SIF 1-DIMENSIONAL CHAR ARRAY 
0107. EB 637 EX DE.HL ; 


READ 
Loc 


O103 
aL109 
OLOE 
O100 
O1L0E 
O1OF 


O141 
O112 
O11S 
o114 
O1LLG 
0112 
O1L1A 
O11c 
OL1E 
0120 
O122 
O124 
O123 


O126 
O123 
O1ZA 
O12C 


OLE 


O12F 
Q130 
O33 


OLS 
0133 
O1L39 
OLSA 
O13B 
o13c 
OLSE 
0140 
O141 
0143 
O145 
0147 


O149 
QO14A 


IDENT, FINO VARIABLE 


IDENT 


OR! CODE M STMT SUURCE STATEMENT 


El 

FEZC 
2820 
C79 
2852 
CH71 
2006 
FE29 
203C 


i) 
FE29 
2860 


FEC 


2032 


210000 


23E5 


cs 
ES 


633 
659 
GIO 
G71 
G32 
493 
GP4 
695 
67S 
697 
693 


699 


/O0 
7O1 
702 
703 
794 
703 
704% 
707 
708 
709 
710 
7Al 
712 
713 
714 
715 
714 
717 
713 
719 
720 
721 
22 
723 
724 
72° 
726 
727 
723 
729 
730 
731 
732 
733 
734 
735 
736 
737 
733 
739 
749 
741 


LGLGs 


LATI: 


LATIS: 
LATA7: 


ARYELTs 


LAT1I9: 


LAT2: 


ST TGNOSP 
CP BRA 
JR NZ, ERRS 
EX DE.HL 
EX DE,HL 
JR ARVYELT 


PUSH HL 

RST IGNOSP 
FOP HL 

CF COMMA 

JR Z,LATI? 
BIT 7,¢ 

JR Z,ERR3 
BIT 6,.€ 

JR NZ» LATIS 
CP KET 


‘JR ONZ,LATZS 


RST NXTLIS 
RET 


CP KET 

IR Z:LAT4&4 
CP Ta 

JR NZ»LAT25 
RST IGNOSP 


PAGE 6 
ASM 5.9 


sMULTI-DIML CHAR ARRAY, NO ¢ 


SBEGINNING OF ARYELT (NOT ENTRY FOINT) 


SWRONG NO. OF SUBSCRIPTS 
“SELSE CHECKING SYNTAX 
31IF CHAR ARRAY 


§(WHENCE TO SYNERR) SYNTAX ERROR 


sKET FOUNDS CHECK FOR EXTRA SLICE 


3 (WHENCE TO SYNMERR) SYNTAX ERROR 
#TO FOUNDs BACKTRACK & TREAT AS SLICE WITH MISSING 


;MOVES (CHUAUD) PAST AN ARRAY ELEMENT OR CHAR SLICE 


DEC HL 
LO (CHADD), HL § LOWER BOUND 
JR LAT4&S 

ON ENTRY, (CHADD) -> 


3 
3 
: 

4 
3 
3 
; 


LD HL,O 
PUSH HL 
RST NXT_IS 
FOP HL 
LD Asc 
CP OCOH 

JR NZ, LAT2 
RST IGN_SP 
CP KET 

JR Z,LAT4&6 
cr To 

JR Z,LATI7 


SHERE (IF RUNNING) BC 
§ NEXT DIMENSION & HL 


PUSH BC 
PUSH HL 


FOR CHAR ARRAY, 
D = 0 & VALUE ON CALCULATOR STACK. 
IF CHECKING SYNTAX :- B = 0, C HAS BIT 7 ON & BITS 0 - 5 OFF. 


FOR NO. ARRAY, HB = 


“(" & C HAS BIT & SET TO SHOW CHAR ARRAY 
IF RUNNING :- DE -> NO. OF SUBSCRIPTS, C HAS BIT 7 OFF, 
NO. OF SUBSCRIPTS, & RETURNS WITH HL -> 


1 BYTE BEFORE VALUE 


B= 


NO. UF SUBSCRIPTS - 1, & RETURNS WITH 


3 INITIALIZE ACCUMULATOR 


SSKIF ( OR , 


SUNLESS CHECKING SYNIAX WITH CHAR ARRAY 


3) FOLLOWS ( OR. 


3TO FOLLOWS ¢ 


UR» 
= COUNTER & NAME, DE -> 1 BYTE BEFOKE 
ACCUMULATOR. 


READ IDENT, 


Loc 


O14B 
OL4E 
O1L4F 
o1s0 
O1S3 
QO155 
O156 
O1S9 
OLSA 
O18B 
O1SC 
OLSe 
O160 
O142 
O163 
O16ES 
O1467 
O16 


O149 


O16A 
OLé6C 
OLG6E 
O1LGF 


0170 
QO171 
9172 
O175 
0178 
O179 


QO17A 
o17D 
OL7E 
O1S1 
O1S2 


0182 
O184, 


O1gs 
O186 
0187 
O1SA 
O1SB 
QO1so 
OLSF 
O1?z1 
OL? 
OLFS 
O19? 


Co3sco2 R 
E3 

EB 

CD1A02 R 
Sa19 ; 
OB 

CD4202 R 
oD 


FE29 . 
2902 


02 


El 

110500 
C4202 R 
oD? 

cy 


Slat R 


COFFOL R 


FEZ? 
2807 

FEZC 

200B 
cOAOOL =OR 


FEZS 


742 
743 
744 
74S 
744 
747 
743 
7A? 
750 
71 
752 
733 
734 
735 
736 
7357 
733 
739 
740 
761 


762 


763 
764 
765 
TLS 
7&7 
763 
769 
779 


772. 


FIND VARIABLE 
OBJ CODE M STMT SOURCE STATEMENT 


LAT25: 


ERR3: 


LAT3: 


LAT4: 


LAT44: 
LAT4S: 
LAT44: 
LAT47: 


IDENT PAGE 7 


ASM 3.9 


CALL GET_DE 
EX (SP).HL 
EX DE,HL 
CALL SsAg 
JR 2, ERR 
DEC BC 
CALL MUL 
ADD HL. &C 
POP DE 

FOP BC 
DINZ LATI 
‘BIT 7»€ 

JR NZ» LSR2 
PUSH HL 
BIT 4.¢ 

JR NZ LAV4 
LO BLD 

LO C,E 

RST IGN SP 
CF KET 

WR Z,LATS 
RST ERROR 
DEFB 2 


SDE := ACCUMULATOR, HL *= DIMENSION 


sIF SUUSCRIPT ERROR 


SIF CHAR SLICE 


$BC i-> 1 BYTE BEFORE ARRAY VALUES 


SRIGHT NO UF SUBSCRIPTS 
3ERROR 3, SUBSCRIPT ERROR 


RST NXTLIS 
POP HL 

LD DES 
CALL MUL 
AUD HL. BC 
RET 


DE -> JUST BEFORE FINAL DIMENSION, ' 
3 HL TO BE MULTIPLIED BY THE FINAL DIMENSICN TO ‘GIVE OFFSET 
$ ADDRESS OF THE BEGINNING OF THE CHAR SLICE. | 


sEXECUTING CHAR ARRAY. 


(CHADD) -> TERMINATUR CF THE LAST SUBSCRIPT (KNOWN FROM 
SYNTAX CHECK TO BE “,~%, 
CALL GET_DE ! 
EX (SP),HL : ys Se : 
CALL MUL : re AIS : 

POP BIC 

ADD HL, BC 
INC HL. 

LO B.D 

LD CE 

EX DE,HL 
CALL FSAO 
RST IGN_SP 
CP KET 

JR Z,LAT4S 
CP COMMA 

JR NZ, ERR 
CALL SLICER 
RST NX1_1S 
cP BRA 


“TO"s OR ee de 


sDE &*-> BEGINNING OF CHAR ‘SLICE 


SLAST SUBSCR. 


TERMINATED BY TO + TOO FEW SWBSCKIPTS 


i (WHENCE TO SYNERR) OVER 256 SUBSCRIPTS AT SYNTAX CHECK 


READ IDENT, 
Loc 


FIND VARIABLE 
OBJ CODE M STMT SOURCE STATEMENT 


O19? 2SFo 796 
O19B FOCBOLBS 797 
O1LSF cy 773 

T?9 

S00 

So1 

B02 

BOS 

&04 

S05 

S04 

S07 
OLA0 Cooooo X so0¢ 
QL1A3 C43F03 R soy 
OLAG 810 
OLA7 FEZ? S11 
O1A9 2350 S12 
O1AB 03 S13 
QOLAC AF S14 
O1AD FS B15 
O1AE ° CS S14 
OLAF 110100 G17 
OLBZ S13 
O1B3 El S19? 
O1B4 FECC 820 
O1LBS 2317 S21 
O1BS Fil ' S22 
OLED CD1B02 R 823 
O1BC Fa S24 
OLED 30 S25 
O1LBE av 826 
O1BF ES 27 
QO1cd 823 
o1ctl El ; S27 
O1C2 FECC S30 
O1c4 209 S31 
O1CS FEZ? S32 
Oils C20000 X 833 
O1CE 42 B34 
o1c]e éB S35 
o1cp 1813 B34 

$37 
O1CF ES S33 
o1n0 . S29 
O11 El 240 
o1n2 FEZ9 S41 
o1n4 2300 842 
o1n4 Fil S43 
O107 COLBO2 R 344 
O1nA FS B45 
O10k B44 
o1nc 40 847 
o1nD &9 343 
O1DE FE29 849 


SLICER: 


LSR3: 


I 


DENT 


_JR Z,LAT4S 


RES NO, (IY-Y+FLAGS) 


RET 


3 SYNTAX OF SLICER, & 
3 STACK. 


PAGE 3 
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sSTRING TYPE 


sSLICES A STRING. 


3A SLICER CAN BE 


3 OR 
5 OR 


) 
NO.EXFRN ) 
CNO.EXPRNJ TO CNO.EXPRNI ) 


30N RETURN, (CHADD) -> ). RESETS BIT NO OF (FLAGS). 


CALL INTFT? 


CALL NZ,POPSTR 


RST NXT_IS 
CP KET 
AR Z,+LSR&46 
PUSH DE 
XOR A 

PUSH AF 
PUSH BC 

LO DE.1 
RST IGN SP 
POP HL 

cP TO 

JR 2,LSR3 


POP AF 


CALL SUBSCR 
PUSH AF 

LD 0B 

LD E.c 

PUSH HL 

RST IGN_SP 
POP HL 

cP To 

JR Z,LER3 
CP KET 

UP NZ,SYNERR 
LO HD 

LO L+E 

JR LER 


PUSH HL? 
RST NXTLIS 
POP HL 

CP KET 

JR Z+LSRG 
FUP AF 
CALL SUBSCR 
FLUSH AF 
RST IGN_SP 
LO HB 

Lo t.c 

CP. KET 


$IF EXECUTING 


SEMPTY SLICER 
SORIGIN 


3LENGTH 
sDEFAULT LOWER SUBSCRIPT 
3LENGTH = DEFAULT UPPER SUBSCRIPT 


3GET LOWER SUBSCRIPT 


#LOUK FUR UPPER ‘SUBSCRIPT | 
sSYNTAX ERROR 


SUPPER SUBSCRIPT = LOWER 


sGET UPPER SUBSCRIPT 


ee ee 


(CHADD) -> COMMA OR BRA IN TEXT. 
IF RUNNING, ,SLICES STRING UN CALCTR 


4a 


CHECKS © 


READ 
Loc 


OLEO 
OLE 
OL1ES 
O1E4 
QOLES 
O1ES 
O1LE7 
OLES 
O1EA 
OLED 
OLEF 
OLFO 
‘O1F 1 
QOLF4 
OFS 
OLFS 
OLF7 
O1LFE 
O1LFE 


O1FF 


o200 


a204 
O205 
O208 
O209 
ozo 
o20n 


O20E - 


O20F 
o210 
O211 
O212 
'O213 
o214 
O215 
0216 
O219 


IDENT, FIND VARIABLE 


IDENT 


OBJ CODE M STMT SQURCE STATEMENT 


ZOE 
Fi 

E3 

1? 

2b 

E3 

A7 
EDS2 
010000 


FOCBOLES 
cpooag0 X 
cs 


AF 


FDCBO1LBS 


cS 
CooO00 x 


AF 


S50 
S31 
SS2 
S23 
S24 
S55 
B56 
S37 
SS5 
So9 
240 
S41 
B42 
G63 
S64 
845 
S44 
B47 
S45 
869 
870 
S71 
B72 


-873 


274 


Go oo co 0 


we 


om 


ath 00 


NOUS WNMeEFE SU ON ROU Sh 


OO So 


o¢ 


Hv GHA tCAOoOnenoom oe om wo 


5s] 
oS . 
HON Oo 65 


2) 
a 
Ld 


LSR&: 


PAEUCB: 


Sao: 


SUBSCR: 


JR NZ» LSR2 


FOP AF 

EX (SP),HL 
AOD HL. DE 

DEC HL 

EX (SP),HL 
AND A 

SEC HL, DE 

LD BC,0 

JR C,LSR6S 
ING HL 

AND A 

JP M,ERR3 

LO BH 

LO Cok 

FOP DE 

RES NO, (1Y 


2. CALL INTPT 


PAGE 9 
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$(WHENCE TO SYNERR) SYNTAX ERROR 
sHL f= NEW ORIGIN 
sHL t= NEW LENGTH~1 


IF HL < © (THEN SUBSCRIPT ERRORS IGNORED) 


SIF SUBSCRIPT ERROR 


~Y+FLAGS) 


? 


$IF CHECKING SYNTAX 


RET Z 
3A t= 0 (FIXED LENGTH ASSIGNMENT TYPE), THEN PSHSTR 
XOR A 
iPUSHES STRING ONTO CALCULATOR STACK, TAKING LENGTH FROM BC, 
3 ORIGIN FRUM DE & ASSIGNMENT TYPE FROM A (SEE POPSTR). 
3 (I.E. STACKS AEDCE) 
3 UPDATES (STKNXT)$ HL: t= NEW (SfKNXT). 
+ PRESERVES AFBCDE. 
+ RESETS BIT NO OF (FLAGS). 
RES NO, (IY-Y+FLAGS) 
iLIKE PSHSTR, BUT PRESERVES BIT NO OF (FLAGS). 
PUSH BC 
CALL ROOM? 
POP BC 
LO HL» (STKNXT) 
LD (HL)»A 
INC HL 
LD (HL).E 
INC HL 
LD (HL).D 
INC HL 
LO (HL) +c 
INC HL 
LE (HL), B 
INC HL 
LD (STENXT) + HL 
RET 
;SUBSCR A = 0, 
+ LIKE SUBSCR, BUT INITIALIZES A TO 0. RETURNS C IF SUBSCRIPT 
3 


XOK A 


we ve ve 


ERROR. 


SEVALUATES EXPRESSION FROM NEXTCH. 
IF RUNNING, FUTS ANSWER IN BC USING FIX_U 
& CHECKS THAT IT IS BETWEEN 1 & HL. 
{F IT 15, PRESERVES A. . 


READ IVENT, FIND VARIABLE IDENT PAGE 10 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 53.9 
904 ¢$ IF IT ISN’T, DECREMENTS A. 
203 ; + PRESERVES DEHL. 
O21B DS P06 PUSH DE 
o21c ES vO7 PUSH HL 
oO210 FS : VOR FUSH AF 
O21E ChQ000 X 90? CALL TEMS 
O221 Fi 910 _ POF AF 
O222 Cne000 | X V11 CALL INTPT? 
225 2812 912 AR Zy LSBRS SIF CHECKING SYNTAX 
0227 FS 913 FUSH AF 
O22 CLO00O xX 14 : CALL FIX.U 
O22B D1 - 9AS POP DE 
O22C 73 916 LO A»B 
oO220 Bl 917 UR C 
O22E 37 918 SCF 3TO SHOW ERROR 
O22F 2205 GAD WR Zs LSBRSG SIF SUBSCRIPT = 0 
O231 E1- P20 FOP HL 
0232 ES B21 FUSH HL 
O233 ° A7 va2 AND A 
O234 ED42 . 923 SaC HL, BC 
O236 7A 724 LSBR6: LO AD sA RESTORED TO VALUE GN ENIRY 
0237 | DEOO eran) SEC ALO $A DECREMENTED IF ERROR 
OZ39 Et P26 LSBRS2 PUP HL 
O23A D1 927 FOP DE 
O23B Cc? 923 RET : 
929 ; 
' 930 GET.DEs sD = (DE+2), E t= (DE+1), HL t= DE+2 
O23C EER 931 EX DE.HL . : 
o23D 23 P32 INC HL 
O23E SE 933 LD E. (HL) 
O23SF 23 S34 INC HL 
o240 54 gS LD D. (HL) 
O241 ce 9346 RET 
G37 
38 MUL s$IF CHECKING SYNTAX, RETURNS STRAIGHT AWAY. 
V3D sELSE, HL #:= DE, UNSIGNED. PRESERVES BCDIE, ERROR 4 IF OVERFLOW 
242 CDO0UO X 40 CALL INTPT? 
O245 ce P41 RET Z §IF CHECKING SYNTAX 
O2Z46 CLOO0O X 942 CALL MULT 
o249 DAQOOO X 943 JP C,ERR4 


o24C cy 944 RET 


ACTION FOR LET STMT 


Loc 


o240 
OZ50 
O254 
0256 
O2sy 


O23A 


O25B ° 


O25C 
O2SE 
02460 
02462 
O264 
0246 
0248 
O26A 
O246B 


O260 
0270 
O272 
' 0274 


O277 
O278 
O27B 
O27 


‘282 | 


O233 


O2E9 
O23A 
O2at 
o2e8D 
O2SE 
O270 
O292 


O24. 


{ IDENT PAGE 11 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
945 #HEAD ACTION FOR LET STMT 
Fah 
P47 LET: ACTION FOR LET STATEMENT. 
948 SOURCE 13 UN CALLULATOR STACK. 
wae BIT NO OF (FLAGS) SHOWS TYPE. 
950 SBT UNFND OF (FLAX) SHOWS DESTINATION NOT FOUND, ELT FLEX 
951 ; SHOWS FLEXIBLE LENGTH ASSIGNMENT REQUIRED. 
P52 3IF DESIN NOT FOUND, (DEST) -> 1ST CHAR LiF NANE IN TEXT. 
953 31F DESTN FOUNL, 
954 $s FOR NUMBERS (WEST) -> 1 BYTE BEFORE VALUE, 
955 3 FOR STRINGS (DEST) -> VALUE & (STRLEN) = LENGTH. 
erat ; HIF SUCCESSFUL & NO. TYFE, RETURNS WITH HL -> 1ST BYTE OF VALUE. 
2A405C P57 LO HL, (DEST) 
FOCE274E 958 BIT UNFNDD (1Y-Y+FLAGX) 
285E S59 JR 2,LLT3 3 IF EXISTS ALREADY 
010500 Fh0 LO BC, NOSIZE § ELSE MUST CREATE VARIABLE 
oF $61 LLT1s INC BC § COUNT CHARACTERS IN NAME 
23 962 LLTI2: INC HL 
7E P63. LO A, CHL) 
FE20 Dh4 cp’ ¢ 
2EFA 965 _ JR Z,LLT12 SIGNORE SPACE 
300B 964 JR NC LLTI25 SUNLESS CONTROL 
FE10 W647 CP 10H ; 
S11 968 JR C,LLTI3 3IF SIMPLE CUNIRUL (INC. NL) 
FE14 TO? CF 14H , 
2000 970 JR NC LLTIZ s$(F AT UR TAB CONTROL 
23 : S71 INC HL SIF COLQUR (ETC.) CONTROL, IGNORE NEXT BYTE 
1SED 972 JR LLTAZ ' 
973 : 
COD603 R #74 LLTIzs: CALL ALNUM? 
BSE7 975 JR CoLLTI % 
FE24 S74 | CP DOLLAR 
CACEQZ R 77 JP Z,LLTS 31F STRING 
974 LLT13: sHERE TO MAKE NEW SIMPLE NUMERIC VARIABLE 
7BC = NO. OF BYTES FUR NEW RECORD 
7? LD A.C 
ZAS95C LD HL, (E_LINE) 
2B DEC HL sHL &-> SOH 
CohOO0g =x CALL INSERT 
23 INC HL 
23 INC HL 
ER EX DE.HL 
oS PUSH DE (SP) =-> 2ND BYTE OF NEW SFACE 
ZA405C LO HL, (DEST) 
1B DEC DE 3DE :-> 1ST BYTE OF NEW SPACE 
D406 SUE MOUSIZE+1 : 
47 : LO BA 3H t= NO. CHARS IN NAME - 1 
2311 Ia JR Z,LLTAS -? IF SINGLE CHAR NAME, WITH A = 0 
23 9?3 LLTI4: INC CHL sCOPY ALL CHARS BUT 1ST OF NAME 
7E 994 LO A, (HL) 
FE21 995 CP + “+4: 
8FA SFG JR C.LLT14 3 IGNORE SPACE OR CONTROL CHAR (CAN’T BE NL) 
F620 997 GR 001000008 tLETTERS MALE LOWER CASE, DIGITS UNCHANGED 
13 992 INC DE : 


ACTION FOR LET STMT 


Lo 


o295 
O26 
O298 
O29A 
O29B 
o2en 
O2A0 
O2AL 
O2A3 
O2A4 


O2A7 
O2A8 
aZAy 
O2AA 
QZAB 
O2ZAC 
OZAF 
O2ZEO 
O2R2 


O2B4 
OZBS 
O2BA 
O2BL 
O2BE 


o2c0 
o2c3 
0207 
O2CB 
o2cn 
O2CE 
O2CF 
O200 
O2D4 
O22 
O2D3 
o2D4 
O205 
OST 
O27 
o209 
O20B 
o2uc 
O2D0F 
QZE0O 
O2E1 
O2ZE2 
O2ZE4 
OSES 
OZ2E7 
O2ES 


IDENT 


Of) COLE M STMT SOURCE STATEMENT 


O2 
33 
El 
010500 


FOCBO176é 
2806 
110400 
19 

SE7 , 


2A4D05C 


ED4B725C 
FOCHS744 


CDSFO3 R 


VDD 
1000 
1001 
1002 
1003 
1004 
1005 
1004 
1007 
10038 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1014 
1017 
1013 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1024 
10:27 
1028 
1029 
19020 
1031 
1032 
1033 
1034 
1035 
1034 
1037 
1036 
10233 
1040 
1041 
1042 
1043 
1044 
1045 
1044 
1047 
1048 
1049 
1030 
1031 
1052 


LLT1iSs 


LLT2: 


LLT3:s 


LLT31: 


LD (DE),A 

DINZ LLT14 

OR 1.SHL.7 

LO (DE),A 

LD A, 110000008 
LO HL, (DEST) 
XOR (HL) 

OR 00100000B 
POP HL 

CALL LLTS7 


PUSH HL 
RET CALCTR 
CEFB LOSE 
DEFB QUIT 
POP HL 

LD BC,NOSIZE 


AND A 


SEC HL, BC 
JR LLTS3 


BIT NG, (IY-Y+FLA 
JAR Z,LLT31 

LOD DE,NOSIZE+1 
ADL HL, DE 


JR LLT2 


LD HL. (DEST) 
LO BC, (STRLEN) 


FAGE 12 
ASM 6.9 


sFINAL CHAR FLAG 
3 LAST CHAR OF NAME 


sXOR MASK FOR 1ST OF MANY CHARS (Q1X -> 10X) 


SLOWER & UPPER CASES MERGED 
SHL &-> 2ND BYTE OF NEW RECORD 


SHERE TO INSERT VALUE GF NUMBER, WITH HL. -> BYTE AFTER RECORD 


3HL &-> 1ST BYTE OF SPACE FOR NUMBER 


+ HERE IF EXISis ALREALY 

AGS) 

3 IF STRING OR CHAR SLICE 

sELSE NUMBER. HL -> 1 BYIE BEFORE VALUE 


BIT FLEX, (1Y-Y+FLAGX ) 


JR NZ,LLT4 
LD A.B 

OR t 

RET Z 

PUSH HL 
RST COPYLUP 
PUSH DE 
FuUSH BC 

LO 0,H 

LO EL 

INC HL 

LO (HL)3% 7” 
LDDR» 

FUSH HL 
CALL FPORPSTR 
POP HL 

EX (SP),HL 
AND A 

SBC HL,BC 
ADD HL, BC 
JR NC, LLTS2 
LO BH 

LO Cok 


3IF STRING RATHER THAN CHAR SLICE 


SIF DESTINATION EMPTY 
SADDRESS OF DESTINATION 

SCREATE WORKSPACE TO COPY SOURCE STRING INTO 
+ ~> 15T BYTE OF SPACE 


sLENGTH GF DESTINATICN a 


SQVERWRITES ASSIGNMENT TYPE (NOT NEEDED) oF POE 
sINITIALIZE SPACE fO0 SPACES 


sHL = LENGIH OF DESTINATION 


S1F DESTINATION LONGER THAN SOURCE 


ACTION FOR LET STMT IDENT ; PAGE 13 


Loc OB. CODE M STMT SOURCE STATEMENT ASM 3.97 
OZE? . E3 1053 LLTS2: EX (SP).,HL 
OZEA EB 1054 - EX DE,HL 
OZER 73 1055 LO A,B 
OZEC Bt 1054 OR 
OZED 2802. , 1057 AR Z LLTS25 7IF SOURCE IS EMPTY 
O2EF EEO 1036 LDIR 
Q2F 1 C1 1059 LLTS25:s POP BC 
O2F2 Dl 1060 PoP DE 
O2F3 EL 1061 POP HL 
1062 LLT33:s SHERE TO WRITE NEW VALUE IN OLD RECORD. DE -> VALUE, 
; 1043 : § HL -> DESTN, 8C = LENGTH 
O2F4 EB 1064 EX DE.HL 
O2FS 73 1065 LO AB 
O2E SG Hl 1044 OR Cc 
O2F7 ce 1047 RET Z 31F BC = 0 
O2ZFS DS 1066 PUSH DE 
O2ZF9 EDBO 1049 LDOIR 
O2FH El 1070 FOP HL 
O2FC . C9 1071 ; RET 
1072 
1073 LLT4: sHERE IF EXISTING STRING 
1074 : sHL -> 1ST CHAR OF DESTINATION SIRING, BC = LENGIH: 
O2Fu 2 1075 ; DED HL 
O2FE 2B 1074 DEC HL 
O2FF 2B 1077 DEC HL 
O200 JE 10783 LO A, (HL) 3A &=. NAME 
OsO1 ES ‘ 1079 PUSH HL 
O202 Cs 1050 FUSH BC 
O203 CD1403 R 1081 CALL LLTS2 
O3B04 Cl 1082 POP BC > oe 
307 El 1083 FOP HL sHL *-> OLD RECORD 
O2083 O38 1084 - INC BC 
- OBO? Os 1085 INC BC 
O30A O38 1084 INC BC SBC := LENGTH OF CLD RECORD 
O30B 30000 X 1037 JP DELREL 
1085 
OS0E SEDF 1087 LLTSs LO A,11011111B $HERE FOR NEW STRING 
O310 2A405C 1070 LO HL, (DEST) 
O31L3 AS 1071 AND (HL) SUPPER & LOWER CASES MERGELI 
1072 LLTS2: SHERE TO CREATE STRING RECORD 
1073 3A = NAME, SOURCE IS ON CALCULATOR STACK 
O314 FS 1094 PUSH AF 
O315 COSFOS R 1075 CALL POPSTR 
QO313 ° EB 1096 EX DE.HL 
OBL? a9 1097 ADD HL.» BC 
O31A cs 1a7e PUSH BC 
OSLE pa 109% DEC HL sHL &-> LAST BYTE OF SOQURCE SIRING 
O310 224055 1100 LO (DEST),HL SAVE HL IN A MUVABLE VARIABLE 
OS1F Os 1101 INC BC 
O320 OS 1102 INC BC 
OB21 o3 : 1103 INC BC F 
OB22 ZAS?5SC 1104 LO HL» (E_LINE) 
O325 2B 1105 , DEC HL 


o226  Cnooog X 1106 CALL INSERT | SDE :-> LAST BYTE OF NEW SPACE 


ACTION FOR CET STMT IDENT FAGE 14 


Loc} =9OBJ CODE M STMT SUURCE STATEMENT ASM 5.9 
2A4D5C 1107 LO HL» (DEST) sHL t-> LAST BYTE OF SOURCE STRING 
Cl 1108 ROP BC: 7BC f= LENGTH OF SOURCE SfRING 
cs 1109 FUSH BC 
03 1110 INC BC SIN CASE BC WAS O 
EUs ree eG: LOD iCOPY IN NEW VALUE & RUBBISH BYTE IN FRUNT 
ER - 4112 EX DE,HL 
23 1113 INC HL tHL t-> SRO BYTE OF NEW RECORD 
Ct 1114 FOP BC $BC t= LENGTH OF STRING 
0334 70 1115 LD (HL) B 
0235 2B / 4496 DEC HL 
OF34 71 1117 LD (HLyC SWRITE LENGTH IN 
0237 FA 1118 POP AF 
1419 LLTS7: ; iWRITES 1ST CHAR OF NEW NAME, 
1120 + ON ENTRY HL -> 2ND BYTE OF NEW RECORD, A = NAME 10 FUT IN 
11z1 3 1ST BYTE. 
1122 : ON RETURN HL -> SOH. 
O338° 2B 1123 DEC HL 
O339 77 1124 LD (HL).A 3 WRITE NAME CIVER OLD SOH 
S3A ° 2AS9SC 1125 — LD HL, (E_LINE) 
o230 2B 1126 DEC HL f 
O33E cP? 1127 RET 
1128 
1129 
1130 POPSTR: sFOPS STRING FROM CALCULATOR STACK, LEAVING LENGTH IN HC, 
1131 ; ADDRESS IN DE & ASSIGNMENT TYPE (1 = FLEXIBLE, 6 = FIXED) 
1132 ' IN BIT FLEX UF A. 
‘ 1133 ; (I.E. AEDCR = 5 BYTES FROM CALCTR SIACK) 
1134 SUPDATES (STKNXT). 
1135 o$HL t= NEW (STKNXT). 
1134 ; PRESERVES: F 
O23F 2A655C 1127 LD HL, (STENXT) 
O342 28 11338 ° DEC HL 
O243 44 1139 LO B (HL) 
0344 26 1140 DEC HL , 
4E 1141 LOC. (HL) 
2k 1142 DEC HL 
56 1143 LD D, (HL) : 
ee: ee 5. mm (OR en ee ee ee 
SE 1145 LOE» (HL) 
2B 1146 DEC HL 
7E 1147 LED A» (HL) 
22655C 1148 . LD (STKNXT). HL 


Cc? 1149 RET 
> a 


. 


ACTION FOR DIM STMT IDENT FAGE 15 , | 


Lac OB CODE M STMT SOURCE STATEMENT ASM 3.9 
1150 #HEAD ACTION FOR DIM STMT 
1151 : 
1152 DIMs FACTION FOR CIM STATEMENI. 
O3S0 CHAGAD R 1153 CALL FINDLN 
O353 C20000 . X 1154 LOMLs JP NZ. SYNERR 3IF NOL ARRAY 
O3S4 CHO X 1155 CALL INTPT? 
359 2008 1156 JR NZ, LOM2 s1F RUNNING 
OSSB CBB1 1157 RES 6.€ sFOR GETLEL — NO NUNSENSE WITH 10S OR THE LIKE 
Os5D CDE400 R 1158 CALL GETLEL 
O340 cooao0ag X 1159 CALL ENV? 3WON’T RETURN 
’ 1140 . 
O363 S503 11461 LDM2: JR C.LOM4 sDOQESN“T. ALREADY EX1ST 
O36S Cs 1142 PUSH BC 
O364 CHOORO X 1143 CALL RECLEN 
E69 CcooO0aG X 1164 CALL DELREC 
O360 Cl 1145 POP BC 
O260 CERF? 1146 LOM4: SET 7,0 
OZGF 0600 1147 LO BO 7# DIMS SO FAR 
0371: CS 1143. FUSH BC 
Q372 210100 1149 LD HL,1 
O375 CH71 1170 _ BIT 4.0 ‘ 
O77 2002 1171 JR NZ,LOMS 7IF CHAR ARRAY 
Q379 ZEOS | 1172 LO LoNGSIZE 
EB 1173 LDOMS: EX DE. HL ‘ 
1174 LDMS2: RST NXT_IS ae 
24GFF 1175 LO H,OFFH . 
CoLlaAg2 R 1176 CALL SsAo 
DAGEO1 R 1177 JP C,ERRS SIF SUBSCRIPT GUT OF BOUNDS 
El 1173 FUP HL 3H t= # DIMS, L &= NAME 
CS 1179 FUSH BC 
24 1120 INC H 
O233 ES 11810 PLUSH HL 
- OBED 60 1152 LO HB 
_ O38A 6% 11¢3 LO LG 
Ose ch4202 R 1184 CALL MUL 
O23E EB 1185 EX DE.HL 3DE &= FROUUCT OF DIMENSIONS SG FAR # 1 OR NOSIZE 
O3SF 1124 RET IGN.SP 
O390 FE2c 1187 cP COMMA 
S92 SEEGER 
OsF4 FE29 1189 CP KET 
OS9S OBB 1170 IR NZ.LOML sWHENCE 1G SYNERR 
Os73 1171 RET NXT_IS 
‘O399 C1 1172 For BC 3B t= # DIMS, C t= NAME 
S?A 79 1193 LO ALC 
OS7R 48 1194 LO LLB 
2400 1175 LDH,0O 
23 11946 TNm HL 
23 1197 ING HL 
2? 1178 AnD HL, HL 
19 117? ADD HL, DE . 
DAQG0O, XK 1200 JP C,ERR4 SIF ARRAY MUCH TOG BIG 
Ds 1201 PUSH DE LENGTH EXC. DIMS 
Cs 1202 ; PUSH BC sNO. DIMS & NAME 


ES 1203 FUSH HL ¢;LENGTH INC. BDIMS + 3 


ACTION FOR DIM STMT IDENT . PAGE 16 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
a3AS 44 1204 LO BH 
ofA? 40 1205 LO CL 
2AS9SC 1206 LD HL» (E_LINE) 
2B 1207 DEC HL 
CDOGGO =X 1208 CALL INSERT SFRESERVES A 
23 1207 INC HL sHL 2-> 15T BYTE OF INSERTION 
77 1210, LD (HL)»A ENTER NAME 
C1 1211 POP BIC 
OB 1212 DEC BC 
OB 1213 DEC BC 
OB 1214 DEC BC BC t= LENGIH INC. DIMS 
23 1215 INC HL . 
71 1216 Lir (HL) C 
23 1217 INC HL 
79 1218 LO (HL)»B 
Cl 1217 POP Bt $C t= NAME (BIT 6 SHOWS STRING) 
OsBc 78 1220 LD A.B sA t= # DIMS 
O3SBD 2 1221 INC HL 
O3BE 77 1222 LO (HL).A 
62 122 LO HD ; 
éB ‘1224 LO LE sHL ?-> LAST BY'TE OF INSERTION 
1B 1225 DEC DE 
. 8600 1224 LO (HL),O 
CH71 _ 1227 BIT 6-C 
2802 1228 JR Z>tDM7 31F NUMERIC ARRAY 
2420 1227 LD (HL),” * 
C1 \ 1230 LDM7: POP HC 3BC t= LENGTH EXC. DIMS 
EDES 1231 LODR INITIALIZE TO OS 
Cl 1232 LDM@: FOP BCD 3BC s= A DIM 
70 - 1233 LO (HL) 
2B 1224 DEC HL 
71 1235 LO ¢(HL)»C 
O301  2E 1236 HEC HL 
o3s02 30 1237 DEC A 
O303 2OF8 1235 JR NZ» LOMS 
o3nDS 69 1237 RET 
1240 
1241 ALNUM?: TEST WHETHER CHAR IN A IS ALPHANUMERIC 
1242 3 SETS CARRY IFF ALPHANUMERIC 
1243 3 PRESERVES ALL REGISTERS (EXCEPT F) 
o3n4 cCHhoood xX 1244 CALL DIGIT? ‘ 
osny  3F 1245 CCF 
o2DA =e 1244 RET C ” sIF A DIGIT 
1247 ALPHA?: 2 3AS ALNUM? TO TES| WHETHER ALPHABETIC’: . - 
Oo20B FE41 1243 CP LETTER+’A‘ fige oe 
o3no = 3F 1249 CCF 
osnE Do 1250 RET NC sIF LESS THAN “A’ 
O3UF  FESB 1251 CP LETTER+‘Z¢+1 
OSE1 D8 1252 RET C sIF A CAPITAL LETTER 
O3E2 FE61 1253 cP “AY 
O3E4 3F 1254 CCF 
OSES DO 1255 RET NC SIF STRICTLY BETWEEN “Z’ & “A 
Q3E&  FE7B 1256 CP “Z2¢4+1 


O3ES3 cP 1257 RET 


Ld 
b 


ACTION FOR DIM STMT IDENT 
Loc OBJ CODE M STMT SQURCE STATEMENT 


1253 
1259 ENU . 


PAGE 17 
ASM 5.9 


INPUT /OU1 PUT 
OBJ COKE M STMT SOURCE STATEMENT 


Loc 


0000- 
0002 


0004 
0007 
0008 
OOOA 
ooo 
QOOE 
OOOF 
oo10 
ao12 
oo1s 
0016 


0013 
0019 
OO1A 


Ooi 
QOLF 
O021 
on24 
O0246 
0023 


FEC4 
2019 


110000 


EDA 


4B 
C2F000 


FE2E 
250F 
CDAQEO 
FEZE 


é 
2028 


INOQUT 


PAGE 1 
ASM 5.9 


*#HEADING INPUT/OUTPUT 


#LIST ON 


GLOBAL OGUTPLIT, XEY,STK_A, STK_BC, FPZEC, FP2A, ININT, STKUSN, LODE, STDE_U, STDE_S 


GLOBAL DIGIT? 


EXTERNAL NEX 


2 


& 


1CH e sBASIC 
EXTERNAL PUTDIG sEDIT . 
EXTERNAL PUT BC: $LIST 
EXTERNAL SYNERR, ERRB 3 SYNTAX 
EXTERNAL POrPSTR, PSHSTR, PAEDCE 3 IDEN 
EXTERNAL ERR4, SUMSLD, SHIFT 3 SUMS 
EXTERNAL ARRAY, STBOQOL, TESTO 3CALC 


STKUSNS 


sSTACK UNSIGNED NUMBER. 
§ INPUTS A FLOATING POINT NUMBER ONSO 
3 THE CALCULATOR STACK FROM THE DEVICE USED BY GETCH. 
3FILAGS SYNTAX ERRUR IF THERE I5 
5 (I) A DECIMAL POINT BUT NEITHER TE OER NOR FRACTIONAL 
5 PART 
5 OR (II) AN E FOR EXPONENT PART, BUT NO EXPONENT AFTER IT. 
3 ON ENTRY, A = THE FIRST CHARACTER, EITHER A FUINT UR A DIGIT. 
*§ PRESERVES B & HL“. : 
' SMASHES ACDEHLB“C*“D’E’. . 
3 USES CALCULATOR MEMORY O$ MAXIMUM STACK DEPTH = 4, 
CP BIN_TK: 
JR NZ »LSN2 
SHERE IF BIN FOLLOWED BY BINARY INTEGER. 
SQVERFLUW ABORT IF MORE THAN 14 SIGNIFICANT BITS. 
LO DE,O sINITIALIZE ACCUMULATOR 
LSN1IZ: RST NXTLIS 
SUB “1° 
ALI AQ" 
JR NZ,LSN14 3IF TERMINATOR (ANYTHING OTHER THAN “O° OR “17°) 
EX DE,HL SHL = ACCUMULATOR 
CCF sCARRY SET FOR 1 
An HLH SSHIFT IN NeW BIT 
JF 1, ERRS6 sIF 17 SIGNIFICANT BITS 
EX DE,HL 
JR LSNL2 
LSN14s° LD BLD 
LD CE 
JF STEN 
LSN2: CP POINT 
JR Z, LENS ¢IF NOTHING BEFORE FOLNT 
CALL ININT 
CE POINT 
JR NZ, LIOZ _ $1F NO FRACTIONAL FPOINI 
RST NXTLIS 


INQUT 


OBJ' CODE M Sine SOURCE STATEMENT 


INPUT /OUTPUT' 
Lac 
a02z? coso00 
o02c 3822 
O02E 1S0A 
ooz0 
oos1 cn38000 
0034 DAQOHOO 
0037 . 
0033 AQ 
QO037 3g 
003A 
OOS3B Al 
o03C ca 
OosD O2 
OO3E 33 
QOSF 
0040 COS700 
0043 380B 
0045 
0044 EO 
042 Ad 
004s OS 
004? co 
Q04A 04 
OO4B OF 
oo4r 33 
oo4D 
QOO4E, I18bkF 
ae | 
0050. FE45 
oos2 2803 
0054 FE6S 
0034 ca 
0057 OOFF 
Q089 ae; 
OOSA FE2B 
QoOsC § 2805 
QOSE FE2D 
0060 2002 
0062 04 
0043 boty 
0064 CDS000 
Q067 38CB 
O49 cs 
Q06A CnAQ0d 
006D CDBA01 
aa70 Cl: 

* 0071 DAQCAQ 
0074 AA: 
0075: FAOQCO 
O078.. OF 
a079 #2802 


R 


473 
474 


LSN3: 


LSNSS: 


LSN4: 


Lia2? 


LIO3 


LIO32:s 


Lig4e 


LI042:e 


CALL DIGIT? 
IR C,LI03 
JR LISN4 


RST NXT_IS 
CALL DIGIT? 
JP C.SYNERR 
RST CALCTR 
DEFB CONST+0O 
DEFB Wut 
RST CALCTR 
DEF CONST+1 
DEFB COFY+0 
DEFER LOSE 
DEFER Quit 
RST IGNUSP 
CALL. STEDGT 
AR C,LIG3 
RST CALCTR 
DEFB MEMORY+0 
DEFR CONST+4 
VEFB DIV 
DEFER COPY+0 
DEFB TIMES 
DEFER. ADD 
DEFR GUIT 
RST NXT_LIS 
Jk LIGS 


CF LETTER+‘E’ 
JR Z,L1032 
CP “E’ 

RET NZ 


3WE PUT THE SIGN OF THE EXPONENT IN B 
3 


SIF FRACTIONAL PART HAS POINT BLN bs ‘DIGS 
3FOR FRACTICNAL PART 


sIF POINT BUI NO INTEGER OR FRACTICNAL PAKT 


SMEMORY O t= 1, 


SWHEN TERMINATOR OF FRACTIONAL PART FOUND 
SLO#MULTIPLIER FOR DIGIT 


310, 


PAGE 


ASM 5. 


LO#MULTIPLIER FORK DIGIT AFTEK POINT. 


sIF NO EXPONENT PART 


(O FUR +, ~1 FOR -),. 


LO B,-t 

RST NXTLIS 
GP PLUS 

JR -Z,L104 
CF MINUS 

JR NZ+LIO42 
INC 6B 

RST NXTLIS 
CALL DIGIT? 
JR C,LSNSS 
FUSH BC 
CALL ININT 
CALL FFA 
POP AC 

JP 1, ERRS 
AND A 

IP M,ERRS 
INC B 

AR Z,LIOS 


3 TRUE 


SIF PLUS SIGN 


tIF NO SIGN 


$B 8= 0 (FALSE). 


sSYNTAX ERROR: €& BUT NO EXPT 


VIF EXPT 3= 9 


INPUT /QUTPUT 


Loc 


00/B 
07D 


i 
Oy ee: 
‘ ft 
' ' 
re 
freee 
\ 
at 
re 
‘ a) 
ry 
ud 
ite {te 
gedey [eee 
ee 
ee 
ee 
teoedit 
‘ in 
evrdgpe 
ae 8) 
‘ {it 
‘ it 
‘ we 
1" 
| 
‘ 
ty ' 
Fycdeyet 
weedy 
ech 
mad 
wyeoga 
Can) 
why 
Cr | 
ehage 
cae 
ae gy 
tory 
a 
a | 
cont 
tt 


£044 
C3B400 


foe, 


Ce fe 


Pe yeor eves 


eye 


Gvaey tees 
vw oteupe 


thom 
Pen a 
Poet 
ote 


ty 


1 ofyesetrnes 
oped 
ity 

Oday yereney 
i 
td 

Prato dns 


' 327 
R 28 
H29 
E30 


INQUT 
GRY CODE ™ STMT SOURCE STATEMENT 


LIoOSs 


sEND OF 


1 ‘ 
tooadde 
Popes 
pare 

{tee 

ee 
Poteet 


NEG Gets 
JP XEY: - 


STKUSN. 


nr ce 
ae i t 
i 
a ‘ rn) 
tet trad 
! ! ! im 
yr y i) ' 
re mos Tepes 
fe at Th Gf ' ! 
[ 
{ ' heoog 
1oge bopaot 
4 s poten : shag 
t 4 ! 
PISEC Ae g as | 
plage Ce ce | Petey 
fobs pea 
ey ' 
ytd ' 1 
ee t- 
bos tbo 
' ; : 
' ' Uae 0 : 
; 
1 
i be aes 
i re | ' 
Fey pci cl t 
1 , 4 
' f] the | t 
1 | or ee 
4 sotigt eet bode. 
' th feng? 
1 uy { t t4o ofre 
oe ¥y " 
robo at ' 
te, ft opepecee . 
1 { side 
Ar oo ' 
ian) ftsones 
' ' 
tt 


pineognes 


fowthet 
ter prt 
i) 

poo 
“hedge 
feu 

ie ‘ 
fata 


bbe tea 


' 


PAGE 3 


ASM 5.9 


INPUT /OUTPUT 


Loc 


0080 
0082 
0083 
oo08S 
OORS 


0087 
QO08A 
008B 


008D 
OOaE 


- 0090 
0074 
0075 
0076 
0097 
OO8s 
onv> 
OOFt 
* o09D 
OVE 
OOvF 


Q0AO 
QOAL 
QOAZ 
00A3 
OoA4 
OOAS 


. OOAS 


QOOA? 
QOAA 
QOAB 


INGUT : PAGE 4. 
OBJ COLE M STMT SOURCE STATEMENT ASM ELS 
S31  #EVECT 
532 
533 DIGIT?: sRESETS CARRY IF A 1S A DIGIT. 
534 SPRESERVES ABCCIEHL 
FEO 535 CP DIGIT+O 
ne Sas RET C ; : : 
FE2A 537 CF DIGIT+10 — 
3F 528 _ CCF 
cy 539 RET , 
540 
S41  STKUGT: ;CONSIDERS A AS A CHARACTER: IF 11 IS A NUMERIC, THEN FUTS 
542 3 THE CORRESPCNOING UNSIGNED INTEGER ON THE CALCULATOR 
543 3 STACK, SMASHING ACD‘E’, & RETURNS WITH CARRY OFF. 
544 3 OTHERWISE, RETURNS WITH CARRY SET, PRESERVING EVERYTHING, 
cnose00 ) =6R S45 CALL DIGIT? 
pe 546 RET C tIF A NOT A GIGIT 
D430 547 SUB DIGIT+O TOROPS THROUGH INTO STK_A. 
543 
549 STKUAr sPUTS AN UNSIGNED INTEGER IN A ON TOP OF THE CALCULATOR STACK. 
550 + & RETURNS WITH CARRY OFF, OF & HL STACK POINTERS & 
551 $ (STKNXT) UPDATED. 
4F 582 LD CA 
0600 55% LD #0 ; 
554 STKUBC: SLIKE STK_A, BUT STACKS A TWO-BYTE UNSGNED INTEGER IN BC. 
FD213A5C S55 Lo IY.Y ;FOR RESURN FROM USR 
AF 554 xoR A 
5F 557 LD EA 
51 553 Lo oc 
43° sso LO Coe 
47 540 LU EA 
crao0g =X S54 CALL FAEDCE 
: 542 RST CALCTR 
ae 543 DEFER QUIT 
a7 544 AND A 
ce 545 RET 
564 
: 567 END OF STKDGT. 
S48 
S49 ININT! ;READS AN UNSIGND) INTEGER FROM NEXTCH ONTO THE CALCULATOR’ 
570 $s STACK (O IF NO DIGITS). 
571 3 ON ENTRY A = 1ST CHARACTER. 
572 3 ON RETURN A = TERMINATOR 
573 } PRESERVES B & HL’ 
574 } SMASHES CDEHLE‘C*D’E’. 
FS 575 PUSH AF 
576 RST CALCTR 
AO 577 DEFER CONST+0 10 
39 573 DEFB GIT 
Fi 57? FOF AF 
chne700 R S&O LIT2: CALL STEDGT 
pe S31 RET C SIF TERMINATOR FOUND 
pated RST CALCTR 
o1 5S DEFB EXCH 
A4 a4 DERE CONST+4 $10 


‘INPUT /OUTPUT 
GBI CODE 'M STMT SGURCE STATEMENT 


‘Loc 


Q0AC 
OOAD 
QOAE 
QOAF 
OOBR: 


04 SoS 
OF S86 
33 S87 
~ CLQ00O xX Seo 
WSF S89 
I 90 
ies O71 


’ 


eyes 


INOW 


DEFB TIMES 
DEFB ADD 
DEFB QUIT 
CALL NEXTCH 
AR LITE 


sEND OF ININT. 


INOGUT 


INPUT /QUTPUT PAGE & 
Lac OB CODE M STMT SOURCE STATEMENT ASM 3.9 
S92 #xEJECT 
593 : : 
S94 XEY: sREPLACES TOP NUMBER, X, ON 
59S 3 CALCULATOR SSfACK BY X#10##A. : 
APS 3 USES MEMORIES 0 & 13 MAXIMUM STACK DEPTH = 4. 
OOB4 Q7 S7 RLCA 
OOBS OF sve RRCA 
OOBEG 3002 Sey JR NC,LXY1IS sIF EXPONENT IS NON NEGATIVE 
OOBS ZF &00 CPL 7 
OOBD 3c 601 INC A 
QOOBA FS 602 LXY153 FUSH AF 3A = MODULUS OF ITS ORIGINAL VALUE 
QORB 21925C 603 LO HL.NEMBOT . 
QOOBE - Cnooaod X 604 CALL STHOOL sMEMORY O := SIGN OF ORIGINAL A (0 FOR >= @, 1 FOR <' 0) 
ooc. ; 605 RST CALCTR 
OoOrs A4 606 DEFR CONST+4 310 
oocs 23 607 DEFB QUIT 
ooc4 Fil 403 : FOP AF a 
£09 LXY2s 3;NOW WE HAVE A MULTIPLIER N (INITIALLY 10, BUT GETTING 
A $10 3 REPEATEDLY SWUARED) ON TOP UF !HE STACK, & X UNDER IT. 
411 3;FOR EACH ON BIT OF A, X IS MULTIPLIED OR DIVIDED BY N. 
N0CS CBSF 612 SRL A : 
O0C7 300D . 613 HR NC LXYS 3IF ZERO BIT 
oacg FS 614 FUSH AF sELSE X #:= NOR X /8=N 
OoocaA 615 RST CALCTR 
OocB C1 16 DErB COPY+1 
Oorcg EO 617 DEFR MEMPRY+0 
_ OOD a0 418 DEFB IFJUMP SIF DIVIDING (A ORIGINALLY NEGATIVE) 
OOCE . 04 619 DEFB LXY3-% : : 
OOCr a4 620 DEFB TIMES 
oond 33 G21 DEFB JLIMF 
oon a2 622 HEFB LXY4-$ 
. 623 
oon. OS 624 LXY3s DEFB DIV 
Oous El 625° LXY4s DEFBR MEMORY+1 
oon4 a} 626 DEFR QUIT 
oops Fi 627 FOP AF 
QOS 2308 623 LXYS: IR ZaLXxYé SIF FINISHED 
oons FS 629 PLUSH AF 
oon? 630 RST CALCTR 
OoDA 31 631 DEF DUP 
oonBn 04 632 DEFB TIMES 
oon 33 433 DEFB GUIT 
oonD Fl 624 FOP AF 
OonE 1SES 635 JR LXYZ 
; 634 . 
QOEQ &37 LXY6? RST CALCTR 
QOE1 Q2 633 HEFR LOSE 3N 
OOkK2 33 437 DEFR QUIT 
QOOES Cc? 440 RET 
G41 
642 sENU OF XEY. 


3 


INPUT /OUTPUT INQUT PAGE 7 
Loc’ OBJ CODE M STMT SOURCE STATEMENT . ASM 5.9 


643 #EJECT 
&44 
£45 LODE: sCDE ¢= INTEGER TYPE NUMBER IN (HL) TO (HL+4) (SIGN IN (HL4+1), 
644 _3 LS & MS BYTES OF 25 CUMPT VALUE IN (HL+2), (HL+3))._ 
647 $C t= SIGN, O OR -1, DE *= ABSOLUIE VALUE 
vs 643 s 7PRESERVES B, HL += 3 
O0E4 '23 649 INC HL. - 
OOES 4€ 650 LD C, (HL) 
OOES 29 651 INt HL s 
QOE7 JE 652 LD A, (HL) ; : : 
653 : $THERE ARE NOW THREE CASES: C = 0; C = -1 & A <> O} 
654 $ & C = -1 & A= 0. THE FULLOWING CODE CAN BE SEEN To WORK IN 
655 $ ALL THREE. 
QOES AP 654 xoR C 
OOEP §91 657 sug Cc 
OOEA SF .  &SiS : LD EA 
OOER '23 659 ING HL 
QOOEC  7E - 640 3 LO A, (HL) 
OOED $s? 661 apc A.c 
QOEE A 662 xor c 
OOBF 57 643 LO DA 
OQOFO Ce 664 RET. 
665 ‘ 
666 STDELU: , 
647 
663 
569 
670 
: _ &71 
OOF1  OE0O 672 LD C,0 . 
473. STDE_S: oa STORES INTEGER CDE IN 5 BYTES AT (HL) 
474 $C IS THE SIGN, O OR -1, CE 1S THE ABSOLUTE VALUE, 
675 CHL) 2= (HL+4) t= 0, 
&74& (HL+1) s= 
: 677 (HL+2) & (HL+3) := LS & MS BYTES OF 2S COMPLEMENT FORM 
6/8 OF INTEGER. 
679? SPRESERVES HL 
&80 . SLPRESERVES BCE) 
OOF3 ES 681 PUSH HL ‘ 


TORES UNSIGNED INTEGER DE IN 5 BYTES AT (HL) 
(HL) (HL+1) &= (HL+4) t= 0, 


E 


PRESERVES HL 
CPRESERVES BOE, t= 0] 


se ve we ae ve 
x= 
tr 
+ 
QW 


we ve ve ve ws 


-  OOF4 2400 &32 LD (HL).0 
. OOFS 23 633 INC HL 

OOF 7 71 64 LD C(HL),C 
OOF? 23 és5 INC HL 
OOF? 7B &36 LD AVE 
QOFA A? 637 xOrR C SALGORITHM LIKE THAT OF LODE 
DOFB PL 683 SUE C 
OOFC 77 689 LO (HL).A 
OOFD 23 &?0 INC HL 
OOFE 7A 671 LO ALD 
QOFF ey 92 ANC AC 
O100 "AY 693 XOR C 
O1OL 77 a4 LO (HL)LA 
O102 23 695 INC HL 


0103 3400 ar-+ 2") 1.0 (HL>,O 


INPUT AQUYPUT, , INGUT PAGE & 
Loc. OBJ CODE. M, STMT, SOURCE STATEMENT ASM 5.9° 
0105 El 697 POP HL 
o10& CP b98 RET: 
699 , 
700 FP2BC: sFLOATING FOINT TO BC. 
701 $ BC t= \TOP, X. OF CALCIR STACK\, RUUNDED 1 NEAREST 
2 702 3 INTEGER. X FOPPED OFF STACK. A t= NEW C. 
eit 703 3 CARRY SET IF \X\ >= 24#16, IN WHICH CASE NOTHING SENSIBLE 
i " 704 § IN BC, ZERO RESET (NZ) IF X ¢ OQ, . 
‘ a 705 | $ SMASHES B°C’O-E’, ” 
; : 706 s DE,HL := (NEW) CALCTR STACK POINTERS 
0107 707 RST CALCTR 
0108 = 38. 703 DEFB QUIT 
0109 7E 707 LO A» (HL) 
O10A . AZ 710 AND A 
O10B 2805 7i1 JR Z.LFCS sIF INTEGER ALREALY 
o10D i 712 RST CALCTR 
O10E AZ 712 DEFER CONST+2 31/2 
O1OF, OF, 714 DEFB ADL 
QO110. 27 715 DEFE INT 
O111. 38 716 DEFB GUIT 
O112 717) «=LFCS: RST CALCIR 
O11S OZ 712 DEFB LOSE 
o114 @ 719 DEF QUIT 
o11S €5 720 foo PUSH HL ; 
o116 05 721 PUSH DE 
0117 EB 72z EX DE» HL . 
O11S 4G 723 LO &, (HL) $B t= 0 IF INTEGER TYPE 
o119 CLE4ZQQ0Q R724 CALL LDDE 
o11c AF. 725 xoR A 
011D, 90. 724 SUB B $SET CARRY UNLESS INTEGER TYPE 
O11E CB79 727 BIT 7,¢€ sTHIS (3 THE SIGN BIT EVEN FOR A FLOATING POINT NO. 
0120 642 7283 LD BLD ; 
O1Z1 4B 729 “LD CE 
0122 7b 730 LO ALE ‘ 
O123 1 731 PUP DE 
o124 E1 732 POF HL 
0125 CD? 733 RET 
734 
e 735. $END OF FF2BC,. . ; 
my os 736 : 
737 LOG_10: $A ¢= ABS INT (A/LOG <2> 10) 
\ 738 sDE,HL := CALCIR STACK PULNIERS 
739 $SMASHES B°C’‘D‘E’ 
ae, vi 740 $4 COULD PROBABLY USE INTEGER ARITHMETIC #44 
01z6, 57 741 LD DA 1 
O127,. 17, 742 RLA 
01238 «(OF 743 SBC ALA $A t= -1 IF WAS ORIGINALLY -VE, ELSE 0. 
O12? SF 744 LD EA 
O1ZA 4F 74S Lo c,A 
0128, AF 746 xoR A 
o120 0 47 747 LO BA 
O12D' CDOOCOO xX 748 CALL PAEDCB $PUSH ORIGINAL SIGNED A ON CALCTR STACK. 
O1sa - 749 RST CALCTR 
OSL 34. DEFER LITERAL $LOG <10> 2 


750 


NPOT oro 


‘oc 


“h132 
“O133 
o134 
o135 


O1L36: 


0137 
0133 
O139 


“TNGUT ; FAGE § 9 
“ody Chbe''m str SbURCE STATEMENT ASM 5.9 
ter Ber "DEF! OCOH+47 
‘1A ‘752 DEFB 1AH 
20 ‘753 CFB 20H 
7.) 7sq'' ' " - nere gant hr Fore 
eS ae DEFB SSH ' - caine 
04 756 DEFB Times) 8 Tn 
27 757 DEFB INT | . ates 88 4 
33 783 DEFB quit! ! | a 
759 FP2AI 'sFLOATING POINT TO A. 
760 ohne 3 LIKE FP2BC, BUT SETS CARRY IF \X\ >= 256. 
,Cn0701 R761 CALL Fr2Be ° 
pe 762 ‘RET CO 
“FS 763 PUSH AF 
ee sf DEC & a oa 
oq 765 Int Bo 
2803 The JR Z:LFAZ, SIF B = 0 (NU OVERFLOW) 
Fi 787 POP AF 
a7 768 SCF 
co, 769 RET 
ae 
Ft 71 LFAZ: POP AF 
ce 772 RET 
773 . ; 
774 END OF FP2A. 


INPUT /QUTRUT 


0148 


0149, 


014A 
O14B 
O14 
o14p 
O14E 
OL4F 
O150 
ost 
O152 
O13 
o1ss 
O15 


OVS7 
o1s3 
OLSS 
OSB 
O1sC 
o1so 
OLSE 
O1SF 
0140 
O1d1 
0162 
O163 
0164 
OL4S 


“O1G6 
0167 
O143 
O169 
Q16A 
0146 
O14 
O16D 
O1GE 
OLGF 


O170— 


"1 
1p 


‘775 


7716 
777 
7783 
779 
730 
7e1 
732 
783 
7284 
785 
786 
787 
783 
73? 
79O 
FAL 
792 
792 
794 
79S 
796 
797 
793 
793 
S00 
B01 
S02 
803 
e04 
805 
BOS 
807 
eves 
say 
810 
S11 


INQUT 
Loc. OBJ CODE M STMT SOURCE STATEMENT 


*#EJECT 
OUTPUT: 


NOBUFF 
NODIGS: 
NOEXPT: 


LOT1L: 


LOT1S: 


LOT16: 


FAGE 10 
AEM 3.9 . . 


SQUTPUTS TOP, X+ OF CALCULAIOR STACK. 


“SSMASHES B°C“D*E- 
sUSES MEMORIES 0 TO Si MAXIMUM STACK DEPTH = 6 (?) 
EWU MEMBOT+3#NCS1ZE SMEMURIES 3 & 4 USED YQ SIrORE OIGITS 
EQU MEMBOT+S4NOS1ZE SNUMHER OF DIGITS AVAILABLE IN BUFFER 
EU NODIGS+1 SDECIMAL EXPONENT % 

RST CALCTR 

CEFB OUP 

DEFB MINUS? : 

DEFB {FJUMP 31F XxX <0. 

DEFB LOT1-& 

DeEFB OUP 

DEFB PLUS? 

DEFB IF IUMP sIF X > 0. 

DEFB LOTLS-$ 

DEFER LOSE 30 

DEFR QUIT . 

LO A, DIGIT+O 

ST WRCH 

RET - 

“DEFB ABS 3X = —X : 

DEB’ QUIT s (ORIGINAL) X < O & WE OUTPUT A MINUS SIGN. 

LO A» MINUS : 

RST WROH 

RST CALCTR 

DErB CONST+0 30 ’ 

DEFER COPY+3 SINITIALIZE DIGIT BUFFER, (NODIGS) & (NOEXPT) To o 

DEFB CUPY+4 : 

DEFR COPY+S 

CEFR LOSE 

LEFB QUIT sFROM NOW ON WE ASSUME X > 0. 

EXX 

PUSH HL sMUST PRESERVE THE HL WE HAL ON ENTRY 

EXX 

; HERE TO PRIN' THE TOP OF STACK X (> 0) # 10##(NOEXFT). ' 
sNOTE:— IF X WAS ORIGINALLY VERY LARGE THEN WE COME ROUND HERE 
3 A SECOND TIME. 

RST CALCTR 

DEFB DUP 

DEFB INT 

DEFBR COPY+2 

VEFB Sug. 

DEFB MEMORY+2 

DEFER EXCH 

DEFER COPY+2 

DEFB LOSE 

DEFR QUIT 
SNUW X IS SPLIT INTO ITS INTEGER PART N (ON THE STACK) & ITS 
3 FRACTIONAL PART F CIN MEMORY 2) 

LD As CHL) SOFFSET EXPONENT OF N 


> 


INPUT OUTPUT, , INUUT PAGE 11. 
Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
Q171. . AZ 829 AND A 
0172-2048 230 JR NZ,LOTIS sUNLESS N IS INTEGER TYPE 
0174 CDE400 «=R S31 CALL LODE . 
0177. 0610 e32 LD B14 
0179 7A e323 LD A.D 
017A AT 834 ANLI A : 
017B 2006 e35 JR NZ, LOT145 SUNLESS N FICS IN 1 BYE & 
o17D BS 836 oR E ‘ 
O17E 2309 , 837 JR Z,LOT17 sIF N=0 
o1g0. «5 223 LO DE 
0181 0608 839 Lo 5.8 
0193 DS €40 LOT165: PUSH DE 
01849 e41 EXX 
O185 «D4 B42 FOP DE 
0186 09 843 EXX . 3 
0187-1859 e44 JR LOTS1 , 
i 645 ag 
846 LOTi7: +IF N=O WE GET F (IN MEMORY 2) INTO A CONVENIENT RANGE, NAMELY 
847, ; 1/10 FO 10, 
O18? 242 RST CALCTR 
018A = O2 e49 LEFB LOSE s ADDITIONAL 
O18B «E2 250 DEFB MEMORY+2 $F 
018 38 851 DEFS UIT 
e52 ‘4 sWE NOW CALCULATE AN APPROXIMATION TO LOG <10> F. 
S53 SSUPPOSE Fo = M # 2e#E, 1/2 C= M <1 (& E <= 0, SINCE F < 1). 
: 854 sTHEN LOG <2> F = E + LOG <2>.M, -1 <= LOG <2> mM <0 
ess $ SOE = INT (LOG <2> F) + 1 
856 SSIMILARLY, IF F = M* * 10##E’, THEN 
ok e57, 3 E’ = INT (LOG <10> F) + 1 
es3 SWE SHOULD LIKE AN APPROXIMATION Ta E* SO THAT WE CAN DIVIDE 
7 S59 $F BY 10##E* & GET IT IN THE RANGE (APPROXIMATELY) 1/10 TO 1. 
240 + LOG <10> F = E /-‘LOG <2> 10 + LOG <10> M 
a4 S61 5 & -.2011 < LOG <10> M < oO ; 
842 + THUS E“ (SAY) = INT (E / LOG <2> 10) IS EITHER E’ Ok E’-1 
863 SINDEED, THIS REMAINS TRUE IF WE AMDT 2 TO E, & THEN E" IS 
fo B44 $+ MORE LIKELY TO BE E*. DIVIDING F BY 10##E" THEN FUTS IT 
G45 + INTO THE RANGE 1/10 TO 10, 
o18D) = 7E B66 LD As (HL) SOFFSET EXPONENT OF F 
O18E DS&7E S47 SUB 126 3. t= E+2 
0190 «CDZ601 R848 CALL LOG.10 tA t= -E" 
0193 «7 869 LD DA 
0194 3aAcSC 870 LD As (NOEXFPT) 
0197-92 271 SUB D 
0193 32acsc 872 LO (NOEXPT),A 4 (NOEXPT) +2= E" 
0198 «7A 873 LD A.D 
019%, CDB400 R 874 CALL XEY $F o/t= 1LO#HE" 
O19F . 875 RST CALCTR 
01a0, 31 876 DEFB DUP 
O1AL = 27 877 DEFB INT 
O1A2 C1 878 DEFB COPY+1 
O1A3 08 aso OLFE SUB $F t= FRACTIUNAL PART 
o1aa—s El B30 DEFE MEMORY+1 
O1AS = 38 oe1 DEFB QUIT 
O1A6 CO3A0L R 882 CALL FP2A tA t= INTEGER PART OF OLU F = 1ST DIGIT 


> © @ 6 @ 6 66 @ @© @&© © @ @® @ @& @ @ @ @ 6 @ 


INPUT /OUTPUT INGQUT PAGE 12 
Loc - OBJ CODE M STMT SOURCE STATEMENT ASM 3.9 : ' . 
O1A? ES 683 PUSH HL 
O1AA B2A15SC 834 LD (NORUFF),A 
O1AD 30 es5 DEC A 
O1AE 17 S36 RLA : 
OLAF IF 887 Spc A.A , 
O1BO 3 $33 INC A 3A t= O IF 1ST DIGIT WAS 0, ELSE 1 
O1B1 21ABSC Se LO tHL,NODIGS : 
O1B4 77 BPO LO (CHL).A . 
O1BS Pai | ASSERT NOEXPT=NODIGS+1 , 
O1BS 23 By2 INC HL $HL s= NOKXPT 
OLAS os ays ADD A, (HL) 
O1LB7 77 or4 LO (HLA 
O1LBS Et aPS POP HL SHL t-> F 
OLBY C33502 E946 JF LOT4 ; 
oo7 
893 LOT1IS: SHERE WHEN N IS TOO BIG TO BE INTEGER TYFE. 
goo tHL -> N (UN CALCIR STACK), & A = OFFSET EXPONENT. 
O1RC Dé80 $00 SUB 128 
O1BE FEIC 9OL CP 23 : 
o1ico 3813, oo2 JR C, LOTS : 
: 703 sHERE IF BINARY EXPT >= 28, I.E. N >= ABOUT 1.34 # 10##6, 
904 SSINCE ONLY 8 OIGITS ARE PRINSED, THIS MEANS THAT F HAS NO 
705 H SIGNIFICANCE. . : 
906 : sWE WISH TQ PRINT N # 10#%(NOEXPT). 
907 : 3IF N = M* * 1O##E% THEN WE WANT TO REPLACE X BY 
908 H N / 1O##(E% - 7) WHICH WILL BE IN THE RANGE 10##464 TO 
809 H 10##7. AS IN THE CASE OF N = 0, WE ESTIMATE EY” RY : 
910 - 3 E" = INT (E / LOG <2> 10) WHERE E IS THE BINARY EXPT. 
Pll H THEN E" = E* OR Ev-1 (MORE LIFELY EE’) & N / 1088(E" - 7) 
. 912 , H IS IN THE RANGE 1O##6 TO 1O##, 
O1C2 Co2601 913 CALL LOG_10 : 
O1CS D407. 914 SUB 7 
O1C7 47 91S LO ELA 
oa1ice Z1LACSC 91s LO HL» NOEXPT 
O1CB 84° G17 ADO A» (HL) 
O1ce 77 VA LO ¢HL).A S(NGEXPT) +2= E"-7 
OLCD 73 ' aie LD A,B 
O1CE E44 920 MEG : 
o1pe COB400 921 CALL XEY . SN /2= LOH#H(E" - 7) 
o1ng 1971 G22 JR LOLS i SWITH X REPLACED BY N 
923 
924 LOTS: SHERE WITH N ON STACK & IN THE RANGE ABDUL 64000 10 ABOUT 1.468 
925 sHL -> N 
O1US EB I26 EX WE,HL 
O1DS Crio0o0o 927 CALL SUMSLO SD°E“DE := MANTISSA, L’ ¢= OFFSET EXPONENT 
@1n? ny 928 EXX 
O1DA CBFA 92P SET 7.0 sREMOVE O.SIGN BIT 
o1n¢c 70 yao LO ADL 
o1nu np 2c | EXXx 
OIE O480 YSZ Sug 129 
OQ1EQ -47 G3 LO BA 3B t= EXPONENT 
934 LOT31L: SHERE WITH N = B MOST SIGNIFICANT BITS OF D’E“DE CN = INTEGER 
eS H PART OF DVE“DE # 2#e(B-32).] 


PACT) 


-4N IS STILL UN THE CALCTR STACK AS WELL. 


' gf a @ -g 


1 ) ne ‘ 
INPUT /OU PUT \ ‘  INOUT FAGE 13 - 


LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
937 SWE NOW SHIFT B BITS OF LCE’DE LEFT INTO THE 5 BYTES 
938 $ AT NOBUFF+S$ BUT THE SHIFTING IN RAM IS DONE WITH LAA 
939 $s $0 THAT THE RAM BYTES END UP CONTAINING DIGITS. 
O1E1 CBz23 940 LOT32: SILA E 
O1ES C12 S41 RL OD 
O1ES =o 942 EXX ; 
OQ1E6 CB13 943 RL E « 
O1ES CH1I2 944 RL OD ; 
OQ1EA oe : 945 EXX — 7 
O1ER 21AA5C VAL LD HL. NOBUFF+9 
Q1EE obO5 947 LD 5 
O1FO }8607E 948 LOT33: LD A, (HL) 
OLF1 SF 949 ADC ALA 
O1F2 27 950 DAA 
O1F3 77 951 LO (HL)»A 
O1F4 2B 952 DEC HL 
O1F5 oD 953 DEC C 
O1FS 20F8 954 JR NZ,LOT33 
O1F3 10E7 955 DUINZ LOT32 : 
956 ;NOW THE 5S BYTES AT (NOBUFF+5) CONTAIN N AS 10 DIGITS (MS 1871); 
957 3 PACKED DECIMAL, RIGHT JUSTIFIED. 
O1FA AF 958 xoR A : 
O1FB 21A&5SC ys9 LD HL. NOBUFF+S 
O1FE 11A15C 960 LD Dk, NOBUFF 
0201 O609 Io1 LD 5.9? 3NO. OF DIGITS WANTED 
0203 ELSF 962 RLU 3A t= 0 : 
0205 OEFF 943 LO C.-1 3TO SHOW ZEROS ARE |EADING 
0207 EDGF 964 LO134: RLD 
oz07 2004 965 JR NZ,LOTSS 3{F DIGIT NON-ZERO 
o20B on Wok DEC c 
ez0c oc ; I67 Inc c 
O20 2008 ' 968 - JR NZ, LOT36 31F LEADING ZERO 
OZ0F 12 969 LOTS5: LO (DE).A 
o210 13 $70 ING DE 
O211 FDB471 971 INC (1Y-Y+NODIGS) : 
0214 FD3472 - 972 ING (I1Y-Y+NOEXPT) 
0217 GEO 973 LO ca 
0219 »° CB40 974 LOTS6: BIT 0.8 . 
-O21H 2801 © 975 JR Z,LOT37 SONLY INCKeéMENT HL EVERY {THER GO 
O21 23 976 INC HL 
Q21E  10E7 977 LOT37: [VINZ LOTS ; 
978 SNOW NG. TO BE GUIPUT IS 
979 ; . CCNUDIGS) DIGITS FROM (NOBUFF)] CDIGITS FROM FI 
920 3 # 10##(NCOEXPT) 
; oe1 3F IS IN MEMORY S&S, N IS STILL GN THE CALCTR STACK. 
VED SWE EXTRACT OIGITS FROM F. 
0220 S3AABSC 933 LO A, (NODIGS) 
o223 n6ay 934 SUB 9 
0225 380A 985 JR C,LOTS ;1IF 8 OR FEWER LIGITS SO FAR 
0227 FISS71 985 DEC (IY-Y+NODIGS) SELSE MUST BE EXACTLY 93 (NODIGS) t= 8 : 
-O227A E04 937 LO A.4 ; 
O22C  FOIBEGF . 923 CP CIY-Y+NOBUFE +3) sCARRY SEI IF ROUNDING WANIEL 
O22F 1841 yap JR LOT43 


990) 


+ INPFUTVOUTRUT INGHUIT PAGE 14 
Loc «OBJ CUDE M STMT SQURCE STATEMENT ASM 5.9 
9971 LOTSS: $HERE WHEN N DEALT WITH: BUT IT HASN’T PROVIDED 9 DIGITS 
0231 992 RST CALCIR 
0232 02 993 DEFB LOSE iN = 0 
1 QR33 z 994 DEFB MEMORY+2 $F 
0234 ) 3S 995 LEFB GUIT wg 
: 996 LOT4: ” $HERE WITH F ON TOP OF STACK TO EXTRACT 17S DIGITS. 
rod 997, . “$HL -> F. 
0235 . GB IVE EX DE SHL . . 
0236 .. chDoo00oe oF CALL SUMSLD SU°E*DE := MANTISSA OF F, L’ t= OFFSE) EXPONENT 
0239 DP 1000 ‘EXX 
234A . BESO 1001 LD A, 12% 
o23at | 95 1002 SUB L $A 3= -EXPT 
oz3U ZE00 1003 LO L.o 
ozs CEFA 1004 SET 7,.D —« $REMOVE SIGN BIT 
0241 DP? 1005 EXX 
0242 cLooddd 1004 CALL SHIFT SD°E*DE t= FIXEQ FOINT F 
Oo245 FDVE71 1007 LOT42: LO A, (IY-YFNODIGS) 
o243 FEOS 1008 CP & 
O2Z4A . 3304 1009 JR C,LOT422 31F MORE DIGITS WANTED 
oz4c oe 1010 EXX 
o240 «6 CB12 1011 RL oO _  $SET CARRY IF ROUNUING WANTED 
oz4F ong, 1012 EXX 
o2z50 . 1820 1013 JR LOT43 
1014 
0252 010002 1015 LoOT422: LO BC,2.SHL.8 3B t= 2, C t= 0 
1014 ,INGW CO’E“DE := 10 *# D’E’DE 
o2ss 7B 1017 LOT424: LD AVE 
oz8é  ChF1i02 1018 CALL ABYLO 
o259 SF 1019 LD ELA 
o2z5A 7A 1020 LO ADO 
O25B CDIF102 1021 CALL ABY10 
OZSE 7 1022 LD DA : 
O2Z5F CS 1023 PUSH BC 
0240 DP 10:24 EXX 
O2Z61 C1 1025 POP BC 
O2S2 10F1L 1024 DINZ LOT424 
0264 21A15C 1027 LO HL, NOBUFF 
0267 79 1028 LO ALE 
0268 FD4E71 1029 LD C, (1Y-Y+NOUIGS) 
o2z4B a9 1020 Aon HL. BC 
o2z60 77 1031 LO. (HL).A 
o2é6n FIR471 1032 INC (CLY-YtNGDIGS) 
0270 18D3 1033 JR LOT42 
1034 
1035 LoT4gs sHERE TO QUTPUT 
: 1034 H . CCNODIGS) DIGITS FROM (NOBUFF)] # 1028 (NOEXPY) 
1037 SCARRY SE1 IF 8TH TO BE ROUNDED UP. 
0272 «=FS 1033 PUSH AF 
0273 Z1ALSC 10397 LO Hi. NORUFF 
0276 FD4E71 1040 LD C, CLY-Y+NODIGS) 
0279 0600 1041 Lo BO 
O27B 09 1042 ADD HL»HC tHL t-> BYE AFTER LAST OIGIT 
o2z70 44 1043 Lo BC 3H t= (NODIGS) 
o2z70 FA 1044 POP AF ’ OMCARRY SET IF ROUNDING REQUIRED 


PAGE 15 : 
ASM 5.9 ” 


sNOW WE ELIMINATE TRAILING ZERQS (BY ALJUSTING 
3 (NODIGS)), ROUNUING IF NECESSARY 


sIF TRAILING ZERU F 


SUNLESS ROUNDED UP TO TRAILING ZERO ” 


sHERE IF WAS STRING OF 9S ROUNDED UPs HL = NOHUFF 
$B t= 1 , 3 


LD (IY-Y+NODIGS) +B 


3WE NOW HAVE (NODIGS) DIGITS 01,02. ... 
& X= .Di 02 ... # 10 ## (NOEXPT) 


IN MEMORIES 3 & 4, 


sF OR N 


sSAVED VALUE OF HL’ FROM ENTRY 


ASSERT NOEXPT=NOULIGS+1 


$C t= (NODIGS), B t= (NOEXPY) 
sIF O <= EXPONENT <= & 


sFOR SCIENTIFIC NOTATION, IF 9 <= EXPT OR EXPT <= +5 
sHERE IF -4 <= EXPT <= & 


; SUBROUTINE OF GUTPUT TO PRINT THE DIGITS 
30 <= C = NO. UF DIGITS AVAILABLE. 
sHL -> 15T DIGIT 


NO. OF DIGITS BEFORE THE DECIMAL POINT (OK MINUS THE NO. 
UF ZEROS IMMEDIATELY AFTER IT). 
sPRESERVES D. ' 


a 
iw 
Vv 
o 


-B = NO. OF ZEROS AFTER POINT 


sO <= C, OC B 


sIF NO DIGITS LEFT, SO FILL WITH ZEROS | 


O PR NT POINT (IF C <> 0), O <= B ZEROS 


‘INPUT /OUTPUT INOQUT 
‘Loc = GBY CODE M STMT SOURCE STArEMENT 
027k 2B 1045 LOT44: DEC HL 
O27F 7E 1046 LO A» (HL) 
0230 CEOO 1047 ADC ALO 
O282 '77- 1048 LD (HL).A 
0283 A7 1049 AND A 
284 2605 1050 JR Z,LOras 
0286  FEOA 1051 CP 10 
o283 3F 1052 CCF 
0289 3008 1053 JR NC,LOT4S 
O28B '10F1 1054 LOT4S: DUNZ LuT44 
Oz8D 3601 1055 LD (HL)»4 
OZSF 04 1054 Inc B 
O290 FDB472 1057 ING (I1Y-Y+NOEXPT) 
o293 FL/071 1058 Lora: 
nm ' 1059 LOTS: 
1060 : 7 
0296 1041 RST CALCTR 
0297 ‘02 1062 DEFB LOSE 
ozve 38 1063 DEFB QUIT 
0299 De 1044 EXX 
029A EL 1065 POP HL 
o29B DD 10&4 EXX 
OZ270 1067 
oz7t ED4BABSC 1068 LO BC, (NODIGS) 
O2A0 21A15C 1069 LO.HL, NOBUFF 
O2ZA3 783 1070 LO A.B 
O2A4 FEO? 1071 CP 
OZAS 2804 1072 JR C,LOTSS 
O2ZA3 ° FEFC 1073 Cr -4 
O2ZAA 3826 1074 JR C,LOT7 
OZAC A7 1075 LOTSS: AND A 
O2AD cco00d 1076 CALL Z,PUTDIG 
1077 OP_PR: 
1078 
: 1079 
; 1080 7B 
101 3 
1082 
O2B0 AF 1083 XOR A 
O2B1 90 1084 Suk B 
0282 FABSO2 1085 UP M,LORZ 
O2H5 47 1084 LD BA 
OZR4 1800 1087 JR LURS 
108s 
OzBa 79 1087 LOR2: LDA,C 
OZB9 = A7 1070 AND A 
O2BA. 2803 1091 JR Z»LOK4 
OZBC JE 102 LO A, (HL) 
OZBD | 23 1073 ING HL 
ZBE =o 1074 HEC C 
OZEF © CrOO0O 1075. LOR4: CALL PUTDIG 
O2C2 10F4 1096 QWINZ LOR2 
Q2"4 =—79 1097 LORS: LD ALC 
A7 1078 AND A- 


o2zCS 


T I 
Oo <= C M1GIIS 


INPUT /OUTPUT INOUT PAGE 16 


Loc OBJ COLE M STMT SUURCE STATEMENT ASM 5.9 
0206 ces 1099 RET Z 
O207 04 1100 ING B 
0203 3EZE 1101 / LD A, POINT 
o2cA 1102 LOR6: RST WRCH 
O2CH: 3E30 1103 LO A, DIGIT+O 
ozCD 10FB 1104 DJNZ LORS ; 
o2cF 41 1105) LD B.C = 
O2D0 1866 1104 JR LOR2 - $SINCE B = C > 0, WILL PRINT C DIGITS & RETURN 
1107 : 
o202 50 1102 LOT7: LO DB sSCIENTIFIC NOTATION. D t= EXPONENT. 
203 («15 "1109 DEC D 
204 0601 1110 LO By 
o2D6 CDBGO2 R 1111 CALL UP.PR 
o2D? 3645 1112 LO A, LETTER+E” 
O2ZDB 1113 RST WRCH 
ozpc 4A 1114 Lp C.D $C t= EXPONENT 10 BE OUTPUT. 
o2nD = 79 1115 - LDA : 
OZUE AT 1114 AND A 
OZDF F2E902 R 1117 JP PF LUT72 sIF C >= 0 
OZE2 EL44 1113 . NEG 
O2ZE4 4F 1119 LD GA 3G t= \C\ 
O2E5 3E2D, 1120 Lu A, MINUS 
OZE7 1802 1121 ' JR LOT74 
1122 
O2ZE9 3E2B 1123 LOT72: LD A,PLUS 
OZEB 1124 LOT74:. RST WRCH 
OZEC 0400 1125 LO BO 
OZER  C30000 X 1126 JP PUT_BC 
: 1127 
1123 sEND OF OUTPUT. 
1129 
* 1130 ABY10: 3A s= 10#A + Cr C t= CARRY 
112 #PRESERVES BDIE 
O2FL = US 1132 PUSH DE aan 
OZF2 $F 1123 LO LOA 
02F3 2400 1134 LD H.0 
ozFS5 SD 1135 ae ea ; 
O2F6 54 4136 LD DH ‘ 
OZF7 29 1137 ADD HL» HL 
O2FS = 29 1138 ADL HL» HL 
OZF9, 19 1129 ADD HL, DE 
OZFA 29 1140 ADD HL» HL sHL t= 10%A 
O2FB OSD 1141 Lo E.C 
o2zFC 8619 1142 ADD HL DE . 
o2FD = 4¢ 1143 ‘ LD CoH ; 
O2FE 7D 1144 LD AL 
O2FF Dt 1145 POP DE 
oz00 «09 1144 RET 
1147 


1143 END 


ARITHMETIC ' 
Lac- 


bd 


SUMS PAGE 1 
(HJ CODE M STMT SOURCE STATEMENT ASM 5.9 : 
pe 1 #HEADING ARITHMETIC 
mod ke 2 
' ‘421 #LIST ON 
422 
: “423 GLOEAL ADD, SUB, TIMES, DIVIDE, TRUNC, ERR6, SUMSLD, SHIFT» FLOAT» MULT 
a 424 4 
“ 425 EXTERNAL STDE_S,LDDE + INOUT : 
m4 426 EXTERNAL NEGATE, TESTO sCALC ‘ 
427 . 
a 428 $FLOATING POINT BINARY NUMBERS ARE STORED AS NOSIZE BYTES! THE FINST IS THE 
429 $ EXPONENT, REALLY IN THE RANGE -127 TO 127, BUT OFFSET BY 128 10 BRING IT INTO 
ae ‘430 3 THE RANGE 1 TO 255s THE REMAINING NOSIZE-1 BYTES STORE THE ABSOLUTE VALUE OF 
ne ‘431 § THE MANTISSA NORMALIZED TO SET THE LEFTMOST BIT, BUT THIS LEFTMOST BIT IS 
'432 $ OVERWRITTEN BY THE SIGN, O FOR +VE & 1 FOR -VE. THIS IS REFERRED TO AS THE 
'433 3 ORDINARY FORM, & IS CONVEMIENT FOR MULTIPLICATION, DIVISION, INPUT & QUTPUT. 
i 34 y$EXPONENT O IS USED FOR INTEGERS (INCLUDING 0). 
425 3 FUR THESE THE 1ST MANTISSA BYTE IS THE SIGN (0 FOR +VE, -1 FOR -VE), & THE 
436 4 2ND & @RD ARE BITS 0 - 7 & & - 15 OF A 17 BIT 2% COMPLEMENT INTEGER. THE 47H 
' 427 4 BYTE GF THE MANTISSA IS 0. 
438 $FOR ADDITION & SUBTRACTION THE ORDINARY FORM IS CONVERTED INTO WHAT IS REFERRED 
429 $ TO AS THE 25 CONPLEMENT FORM. IN THIS GNE MUST IMAGINE THE MANTISSA EXTENDED 
440 + BY 1 BIT ON THE LEFT, THE COMPLEMENT OF THE LEFTMOST BIT OF THE MANTISSA: THEN 
441 3 THIS C@#(NOSIZE-1)+1]-BIT NUMBER IS THE SIGNED FIXED POINT NUMBER REPRESENTING 
442 $ THE MANTISSA. IN PRACTICE DURING CALCULATIONS, WHEN NUMBERS ARE LIABLE TO BE 
443 + SHIFTED BACK & FORTH, THE EXPONENT IS STORED ELSEWHERE & IN ITS PLACE 15 PUT A 
444 + SIGN BYTE, THE EXTRA BIT BEING REPLICATED TO A WHOLE BYTE: THEN THE WHOLE 
445 3 NUMBER CAN BE TREATED AS A SIGNED NOSIZE-BYTE FIXED POINT BINARY NUMBER. THE 
446 + SIGN BYTE IS NECESSARY FOR CORRECT INTERPRETATION OF NUMBERS SHIFTED FOR 
447 + ADDITION OR SUBTRACTION. 


44g 


ARITHMETIC ; 
Loc” OBJ CODE M STMT SOURCE STATEMENT 


0000 
a001 
Q003 
0004 
0005 
QON08 
0003 
Qo00A 
OQOER 
(alele les 
aoorn 
a010 
Oo1L 
eo12 
QOO1L3 
0014 
OoO1s 
OO 
0017 
OO1LG 
QOO1A 
oo1c 
oo1n 
QO1E 


OO1LF 


. 0020 
adgz1 
a0gz2 
0023 
A024 
QosS 
O026 
O27 
o02z3 
OO29 
OOZA 
O02 


Oger . 
o02zD 


FE. 
3600 
A7 
Ce 
23 
CB7E 
CBFE 
2B 
ce 
cs 


o103500 


449 
450 
451 
452 
453 
454 
455 
454 
457 
459 
459 
440 
4é1 
442 
443 
464 
445 
466 
4&7 
468 
469 
470 
471 
472 
473 
474 
475 
47% 
477 
478 
479 
430 
4g1 
482 
493 
ag4 
435 
4s 
437 


483 


4g 
470 
491 
492 
493 
44 
49S 
ADS 
4V7 
473 


49 


awl 818) 


SOL 
S02 


~ SUMS 


#EJECT 


TH2Cs 


LTC4: — 


$(TO 2S COMPLEMENT) CONVERTS A FLOATING POINT BINARY NUMBER 
COMPLEMENT FORM WITH THE 
EXPONENT STORED IN A & REPLACED BY A SIGN BYTE. 


we an we 


ue 


LD A, (HL) 
LO (HL).0 


PUSH BC 


IN STORE FROM ORDINARY FORM TO 23 


CN ENTRY, 
ON RETURN, 


SIF 


HL -> EXPONENT BYTE. 


A = EXPONENT & ALL ELSE IS PRESERVED. 


8) 


SIF NUMBER POSITIVE. 
sNEGATE MANTISSA. 


LO BO, NOSTZE 


ADD HL, BC 
LO Bc 
LO C.A 
SCF. 

DEC HL 
LD A, (HL) 


CPL 


SEND OF 
SUMSLD: 


ADC AO 
LO (HLA 
DwINZ LTC4 
LD A.C 
POP BC 


‘RET. 


To2c. 


we uz us os 


PUSH HL 
PUSH AF 
LO C, (HL) 
INC HL 
LO B, (HL) 
LO (HLDGA 
IN@ Hb 
LO A.C - 
Lo ct, (HL) 
PUSH BC 
TNC HL 
LO C, (HL) 
INC HL 
LO Et (HL) 
EX DE.HL 


SHL *-> BYTE BEYONY LAST BYTE OF NUMBER. 


3B: 


= NOSTZE 


§TO KEEP A SAFE. 


SA RESTORED TO EXPONENT. 


sLOADS THE MANTISSAS OF FLOATING POINT NUMBERS INTO 
(HL+4), 


REGISTERS: 
D°E’DE := 


LY t= SIGN OR EXPONENT BYTE OF (DE), 
AF & HL ARE PRESERVED & A IS STORED 


B’°C*°CB 
(DE+1), 


t= (HL+1), 


coer (DE+4), 


7A STORED AS PROMISED. 


SIGN UR EXPT BYTE. 


$A t= SIGN OR EXPONENT BYTE 


3FOR 


Bete 


H’ s= THAT UF (HL), , 


IN CHL+1). 


THE 


ARLIHMETIC a SUMS - 

Loc oBJ CODE M STMT SQURCE STATEMENT 
Q02E «57 503 LO DA 
OOZzF SE 504 Lo E, (HL) 
0020 0 DS 505 PUSH DE 
OO31 23 504 ING HL 
0032 56 507. LD D, (HL) 
0023 «23 508 ING HL 
0034 SE 509 LD E, (HL) 
0035 8605 510 PUSH DE 
002% pe! S11 EXX 
oo37 TA 512 POP DE 
0023 EL 513 (POP HL 
OOsF7 C1 514 POP BC 
oozA . Dy S15 EXX 7 
COsB 823 S14 INC HL 
ooze 54 S17 LO DO, (HL) 
oosD 23 $18 INC HL 
QO3E SE mg LOE, CHL) 
oosF FL ; S20 POP AF 
oo40 «EL 521 POP HE 
oo4a1 ° Cb S22 RET 

oe 523 
524 $sEND OF SUMSLD. 
S25 | 
526 SHIFT: iS 
527 ; 
S28 ; 
S29 3 
a S30 ; 
0042 = A7 S31 AND A 
0043 «cs S32 RET Z 
0044 FE21 . 533 cP 33 
. 0046 3016 53 JR NC,» LSTS 
004g CS S35 PUSH BC 
O04? = 47 534 LO BA 
OO4A Le 537 LST2:  EXX 
004B = CB2D 538 SRA L 
oo4n = CBIA S27 RROD 
QO4F . CB1B 540 RR E 
0051 DF S41 EXX 
OOS2. CELA 542 RR D 
0054 CB1B 543 RR E 
0054 ° 10F2 544 DUINZ LST2 
o0as3 C1 S45 POP BC 
oon? =O 544 RET NC 
005A CD&900 R 547 CALL RNDUP 
oosD co 543 RET NZ 
OOsE = Le 549 LST3: EXX 
S50 ZERO: ¥¢ 
OOSF = AF 551 XOR A 
552 ZEROL: +7 
0060  ZEOO Sm LO LO 
0062 57 554 LD DA 
0063 «SD 555 Lo EL 
0064 DP 556 EXX 


id 
ee 


gc? 


1 


sD°E“DE = MANTISSA (HL) 


SHL REVERTS TO, ORIGINAL VALUE. 


HIFTS L’D’E“DE (L“ WILL BE A SIGN BYTE, O OR -1) A BITS TO 
THE RIGHT, TREATING THE CASES A = 0 & A 3= 32 SPECIALLY. 
THE LEFTMOST BIT IS FROPAGATED (ARITHMETIC SHIFT). 

ROUNDS UP IF LAST BIT SHIFTED OUT IS 1. 

B & HL ARE FRESERVED. 


SIF NO SHIFTING WANTED 


3I1F A IS LARGE 


3°° 


SIF NO ROUND-UP WANTED 
SUNLESS AFTER SHIFT L“D’E“DE WAS ALL 1S WITH CARRY. 
SDROFS THROUGH TO ZEROX 

’ $ALDEDVE’ := 0 & EXX. PRESERVES BCH. 


* $LED’E” := 0, DT t= A, EXX. PRESERVES AH 


ARITHMETIC SuMS 
Loc OB! CODE M STMT SOURCE STATEMENT 
0045 110000 557 LO DE,O 
O04 Cc? 553 RET 
' . u ‘S59 
' S60 sEND OF SHIFT & ZERO. 
S41 
S42 RNDUPs : SROUNDS UP D“E’DE. 
‘ S43 : 4 IS GENERATED. 
" 544 3FPRESERVES ABCHL. 
a049 1c 545 INC E 
006A co S64 RET NZ 
004B 14 S47 Inc D 
00460 co S4S RET NZ 
00éD Dy B49 EXX 
QOO6E 1c S70 INC E a7? 
QO4F 2001 571 JR NZ» LRF2 3c? 
0071 14 572 INC D , ger 
0072 ny S73 LRP2: EXX : 
0073 cy 574 RET 
Bags 875 
S76 %sEND OF RNDUP 
S77 


PAGE 
ASM 5. 


ib 


RETURNS WITH ZERO FLAG SET (Z) IF A CARRY 
& 


, 


fs e© ma @&@ & & Be & Ga &B B&B HR O&O & GB & & & 6 @B 


ARITHMETIC SUMS PAGE 3 
Loc OB! CODE M STMT SOURCE STATEMENT 3 ASM 35.9 — ‘ 
i a 573 #EJECT 
' 579 
530 Slike sFLOATING POINT BINARY SUBTRACTION, (HL) -?= (QE). 
Soto: _ 4 AB.C,B’,C’,D’ & EY ARE SMASHED, DE,HL & HL* ARE 
5e2 3 PRESERVE, ; 
0074 EB So3 EX DE,HL 
aQ075 cpoo00 xX Ss CALL NEGATE ‘ ; fe 
0078 EB balmtec} EX DE.HL ‘ 
: me S86 ADD: SFLOATING POINT BINARY ADDITION, (HL) +2= (DE), “ 
a 537 ‘ s IN THE COMMENTS WE REFER TO THE BYTES OF (HL) & (DE) 
| Seg $ AS XE.X1, oes oXLo & YE,Y1, «2. YL (L = NOSIZE-1). 
S37 ‘ SSMASHES B’°C’D’E” : 
a 590 SPRESERVES DEHL 
0079 AA bane § LD A» (LIE) 
007A Bé : Sez OR (HL) 
0078 2026 . Se . JR NZ,» LADL? SUNLESS BOTH SUMMANDS INTEGERS 
\ 594 : $THE CODE FOR INTEGER ADDITION ASSUMES THAT DE = HL+NOSIZE 
007D nS S95 . PUSH DE ; 
OO7E 23 Sve INC HL 
OO7F ES S97 ree 0 AUSH HL 
OoBO 23 Svs INC HL 
oos1 SE, S99 LO €, (HL) sE t= X2 
O82 23 4600 ‘INC’ HL 
oo83 54 601 LO D, (HL) 30 s= X3 
O084 23 402 INC, HL 
Ooss 23 603 ING HL 
OOSS 23 404 INC HL . 
0087 7E 605 LD A» (HL) sA t= Y1 
O083 -23 606 INC HL 
QOR9 4E ; 607 LO c, (HL) sC t= Y2 
QOSA 23 608 ING HL 
OOsB 46 : 409 LO B, (HL) 3B 8s= YS 
oo3t El 410 FOP HL sHL *-> X1 
oosn EB 611 EX DE,HL 
OOSE ay 612 ADD HL, BC 
QOSF EB é13 EX DE.HL 
OOFO SE 14 ADC A, (HL) $A t= SIGN BYTE 
OOF) QF 615 -RRCA : ; 
Q022 CEOO £146 ADT AO . ; 
oOnDg 200B 617 JR NZ»LADIS SIF OVERFLOW 
0096 FF 613 SBC ALA ‘ 
0097 77 619 LO (HL).A 
ONS 23 420 INC HL 
0099 73 : 621 LO (HL).E 
OFA 23 422 INC HL 
‘OQO7B 72 623 LO (HL).D 
OOF 2B 62 DEC HL 
oo?vn 2B 625 DEC FHL 
“OOVE 2B &24 De® HL 
OOFF D1 627 POP DE 
QOAD ° CF 62 RET 
629 : 
QOOAL 2B 630 LADIG: DEC HL 


Q0A2 Dt &31 POP DE- 


,° 


ARITHMETIC SUMS : PAGE 6 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
ooAS §=6CDFE0O2 =R 632 LADI9: CALL FLOAT2 
00A6 =D? 633 EXX 
Q0OA7 ES 634 PUSH HL ore, 
ooAsS =e 635 EXX 
OOA?, DS , 636 PUSH DE 
COAA ES 437 PUSH HL 
QOAB. cnoo0g0 R 638 CALL Tozc ' 
OOAE 47 rc LO BA $B =, (XE) « 
OOAF EB 640 EX DEH. e 
QOBRO CbQ0Q00 = R 441 CALL Tozc 
oous 4F 642 LD CA sC t= (YE) 
QOOB4 Be 643 CP B 
OOBS 3003 644 JR. NC, LAD2 s1F EXPONENT OF X <= THAT OF Y 
QOH7- 78. 445 LO.A.B 
QORS 41 64G LO BC 
QOOR? EB 647 EX DE,HL 
648 LAD2: sNOW A = LARGER EXPONENT, B = SMALLER, CARRY SET IF EXPT OF 
449 ' 3 Y-¢ THAT OF X. HL -> NUMBER WITH LARGER EXPONENT. — 
OOBA FS 650 FUSH AF 
OORB gO | 651 SUB B $A ¢= ABSOLUTE DIFFERENCE BETWEEN EXPONENTS. 
ooBc CHIFOO R 452 . CALL SUMSLI 
OOBF CN4200 R 453 4 CALL SHIFT 
ooc2 Fl ° 654 . POP AF $A t= LARGER EXPONENT. 
ooc3 = «El 655 POP HL SHL t-> XE, 
aac4a  .77 &56 LO (HL)2A 
oocs ES 657 PUSH HL 
Q0Ce 68 65a - LO LB tNOW WE DO L’D’E*HL t= H“B’‘C*CB+L“D’E’DE. 
Ooc7 41 459 LO Ht : 
oors 19 640 ADD HL, OE 
oor? Le &b1 EXX 2 
ooca EB 662 EX DE,HL 3°? $DE = HL. 
OOCcR ED4A . 663 Anc HL. BC Hadad 
oock EB 644 EX DE.HL 3°° 
ooce 7c 665 LO AH 
oocF ep. 665 ALC AL ; 
oond 4F 667 LOLA 37° $L t= SIGN BYTE OF ANSWER. 
Oob1 iF’ 648 RRA 3°’ §NOW CHECK FOR OVERFLOW, SHOWN BY THE BOTTOM 2 
oon2 Aan 649 xoR L 3° 3 BITS OF A BEING DIFFERENT. 
oops =e "670 EXX . ’ 
oon4 EB 671 EX DE.HL SNOW L“D’E“DE = SUM, 
oons £1 672 POP HL 
cong 1F 673 RRA 
oon7 3008 674 JR NC, LAD SIF NG CVERFLOW 
oong BEL 675 Lo Asi 3SHIFT L*D“E“DE RIGHT ONE BIT. 
cone cr4200 R 676 . CALL SHIFT 
OLE 34 477 ING (HL) 
GOnF 2823 478 JR Z,LAD46 SIF EXPONENT CVERFLOW, 
679 Lan4s SCONVERT L° DE-DE TO ORDINARY FORM, SIGN IN (HL+1). 
680 $ NOTE THAT L’“D‘E’DE = FFQO000G00H REPRESENTS -1, WHICH 
bot s (AFTER NEGATION) MUST BE SHIFTED Ta OO800Q0000 = 1/2H2HHLL 
QOOEL ng 682 EXX | 
OOE2 72D 683 LO Ast 37° $A t= 0 OR -1 (SIGN BYTE). 
Q0E3 E4s0 4 AND @OH 37° $A t= SIGN (SOH FOR -VE, O FOR +VE). 


QO0ES De 635 EXX 


ARITHMETIC 


Loc 


OOES. 


OOE7 
OoES 
OOE? 
QCEB 
QOOEC 
QOEE 
OOEF 
QOFQ 
OOF 1 
QOF2 
OOF 4 
QOFS 


OOFS © 


QOF7 
QOFS 
QOFA 
QOFE 
OOFC 
OOF U 
QOFF 
o101 
O102 
0103 
0104 
O107 


- 0108 


0109 
O10A 
O10 


SUMS 


OBJ CODE M STMT SOURCE STATEMENT 


23 486 
77 687 
2B 683 
231F 439 
7B 690° 
En44 691 
2F 692 
SF : &93 
7A: 494 
2F 695 
CEQO &96 
57 697 
ne &3 
7B &99 
ZF ; 700 
CEOO 7O1 
SF . 702 
7A 703 
ZF 704 
CEQO 703 
3007 TOK 
1F 707 
ny 703 
34 70? 
CA1202 R 710 
py 711 
57 71z 
Dy? 713 
AF 714 
C3BAQ01 R 715 

716 

717 


713 


LAD46: 
LAD48: 


LADS: 


INC HL 

LO (HL).A 
DEC HL 

JK Z,LADS 
LO AVE 
NEG 

CCF . 
LD E.A 
Lo A.D 
CPL 


AnC ALO 


CPL 


ALC AO 


LD EA 

LO A.D 
CFL 

ADC A,O 
IR NC, LADSS 
RRA 

EXX 

INC (HL) 
JP Z,ERRS 
EXX 

LO DA 
EXXx 

xXOR A 

JP NORM 


3END OF ADD & SUB. 


sIF NUMBER IS +VE. 
NEGATE D°ECDE (25 COMPLEMENT). 


sCARRY SET IF E WAS Q. : 


ad 
37° 
+7" 
37° 
37° 
gee 
aad 
3°° $IF D°E’DE NOT= oO, 
3°" $A t= GOH 


s INCREMENT EXPONENT. 


SCARRY IS OFF. 


. 


ART THMETIC 


rac 


O125 
0128 
O12Z9 
012A 
QO12B 
OL12D 
O12E 


O12F 
0120 
O13. 


0133 . 


0134 
0135 
Q134 
O139 
O13A 
O13B 
QLac 
O13F 
0140 
O141 


ee 
" 

ios! | 

6610 

‘7C¢ 

4D 

210000 


CDO000 x 


CDQ000 Xx 


Cpoa0d0 x 


719 
720 
721 
722 
723 
724 
725 
726 
727 
723 
72? 
730 
72l 
732 
733 
734 
735 
724 
737 
733 
737 
740 
741 


SUMS 
‘OBI CODE M STMT SOURCE STATEMENT 


#EJECT 


MULT: 


LMT2: 


LMT4:s 
LMTSs 


TDFIX: 


SEND OF 


TIMES: 


tho th 


ti 
‘PUSH 
LD B 


LD A» 
‘LOC, 


LD H 


BC 
216 
H 
L 
LO 


SHL #8= DE, UNSIGNED MULTIPLICATION 


“'$RETURNS © IF’ OVERFLOW 


SPRESERVES BCDE ' ' 


ADD HLH 
‘IR CO LMTS s OVERFLOW 


"RL. C 
RLA 


JR NCL LMT4 3FOR ZERO BIT IN MULTIPLIER 
AnD HL, DE 

JR COLMTS © s OVERFLOW 

DJINZ LMT2 


POP 
RET 


CALL TESTO 


RET 
INC 
XaR 
SET 
DEC 
RET 


TOFT 


BC 


X. 


s(TIMES DIVIDE FIX) MODIFIES FLOATING POINT NO. (HL) FOR 
5 TIMES & DIVIDE. 

SIF NO. IS ZERO THEN RETURNS C. 

sELSE, COMPLEMENTS BIT 7 OF A IF SIGN IS 1 (-VE), SETS LEFIMOST 
5 BIT OF MANTISSA, & RETURNS NC. 

SPRESERVES ALL OVHER REGISTERS. 


sIF NUMBER IS ZERG 


SFLOATING POINT BINARY MULTIPLICATION CHL) #2= (DE). 
SSMASHES B8°C“D“E?’ 
SPRESERVES DEHL 


Lo A, (DE) 
QR (HL) 


JR NZ LTS12 


PUSH 
PUSH 
FUSH 


DE 
HL 
DE 


SUNLESS BOTH GFERANDS INTEGER TYPE 


CALL LODE 


EX DE,HL 


EX (SF'),HL 


LOB, 


c 


CALL LODE 


LO A 


XOR C 
C.A 


LO 


2B 


o13p'! 


OB! CORE’ M STMT 


ARITHMETIC ! 
Loc - 
0142 El 
0143 CHOEOL 
O146 EB 
O147 El 
0143 SB0A 
O148' 7A 
O14B ' Ba te 
o14c'' 2001 
OL4E 4F°" 
Q14F' coon0d: 
O1s2' Dt 
o1sa": CF. 
$e ee ae) 
o1s4'' Dil 
O1S5 ° COFSO2 
O1s3' AF! 
OLS? cCozsoLr 
O1SC | pie! 
O1sp oy 
O15E ' ES 
OLSR [rp 
0160 os 
O14. EB 
O162 CH2501 
O1ES EB 
O14G4 SSSA 
o1d3 ES 
QO1469. COLTFOO': 
O160 9 Fat 
O16D ' AZ '' 
O14€ '' EDS? 
0170 ' D? 
0171 ES ° 
O172 EDé2 
0174 Ly 
OQ17S 0621 
OQ177 1311 
.O1797 | 2005 
O17B °° 19 
o170 ' DR 
O175 °° EDBA 
OA7F Ds 
C130 typ 
OLS CBIC 
O1g3 CBD 
Q1sh ¢ Lye 
0184 ' CBIC 
0188 °° CBID 
O1sA ' Do. 
QOLSRS BLS 


CBI9 


R 


773° 


774 
775 


‘774 


777 
773 
779 
780 
721 
782 
783 
734 
78S 
736 
737 


. 783 


739 
729 
7? 1 
792 
793 
724 


TPS | 


726 
THT 


TPR 
TID ! 


B00 
S01 


BOOZ | 


So3 
Go4 
805 
B04 
807 
Bos 


. &O9 


S10 
Sit 
S12 
S13 
a14 
S15 


SUMS 


SUURCE STATEMENT 


LTSOSs 


tri 


POP HL 

CALL MULT 
EX DE,HL 
POP HL, 
JR C»LTS1. 
LD’ A.D 

OR E ‘ 
JR NZ,LTSOS 
LO C.A 

CALL STOE_S 
POP DE ' 
RET 


POP DE 


CALL FLOAT? - 


xOR AS 
CALL TDFIX 
RET ¢ 

EXX 

PUSH HL 
EXX 

PUSH DE 

EX DE,HL 
CALL TOFIX 
EX DE, HL 
JR C,LNMOZ 
PUSH HL 
CALL SUMSLD 
LD A.B 


SIF OVERFLOW 


iIF RESULT NON-ZERO 
iSIGN == POSITIVE @ 


sIF NO. (HL) = 0 


ee 
i 


a) ie : fe ee ’ 


' $A $= SIGN OF PRODUCT (S0H —-VE, 0 +VE), CARRY RESET. 


SIF NO. (DE) = 0 


' * SMULTIPLICATION ROUTINE SLIGHTLY ADAPTED FROM ZILOG LIBRARY. 


ANU A 
SBC HL+HL 


FUSH HL 

Sec HL» HL 
EXX 

LO 8.33 : 
JR LTS4 © 


JR NC ALTS3 © 


ADD HL. DE 


EXX 

AnC Hi, DE 
EXX ' 0) 
EXX 

RR OH 

RR OL 

EXX 

RR OH 

RR L 

EXXx 

RR Et 
RRC 


s H°L“HLB‘C’CA t= D°E*DEXBE“C“CA, 


iCARRY = 0. 


$7 $HL f= OFFSET EXPONENTS 
3°* SCARRY = ©. 


ger 


ere 
a 


g¢e 


ace 
7" ‘ 


ARITHMETIC SUMS FAGE 10 

Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 

O1SF De 827 EXX 

O170 = CB19 29 RR C 

o192 IF 829 RRA 

0193  10E4 &30 DINZ LTS2 tEND OF ZILOG ROUTINE. 

O195 . EB e231 EX DE.HL $DE t= HL 

0194 D9 32 EXX ~ ; 

0197 «EB e323 EX DE,HL : 49¢%* SDE t= HL - 

o198 De 834 EXX ; 

0199 Ct S25 POF BC. $BC t= OFFSET EXPONENTS ‘ 

019A E 8246 POP HL 
@27 SWE NOW CALCULATE THE OFFSET EXPONENT. THE MANTISSA IS BETWEEN 
S28 $ 91/4 & 1, SQ THE REQUIRED OFFSET EXPONENT IS THE SUM.OF THOSE 
239 + OF THE MULTIPLICANDS, ~128. 

O19B 8678 240 LD A.B $A t= SUM OF CFFSET EXPONENTS, IN THE RANGE 2 TO 510, 

oi9c Bt e414 ALD ALC + CARRY SET IF A >= 256 

O19D © 2001 B42 JR NZ»LTSS SUNLESS A = 254 

O19F = AZ ~ 843 - AND A *  $CARRY RESET 

o1Aa0 = 3D 644 LTsS: DEC A sNOW A IN THE RANGE 1 To 509 

O1AL = SF, e45 CCF # CARRY SET IF A <= 255 

O1A2 17 44 LTSé? RLA SENTER HERE FROM DIVIDE. WE COMPLEMENT BIT 7 OF A TO 

O1A3 SF 847 ccr + ADD GR SUBTRACT 123 . 

O1Aa IF 843 _ RRA sNUW A IN THE RANGE -127 10 382, CARRY SET IF ‘A <= 12 

O1AS F2AB0L R 849 “JF PS LTS6S sIF -127 <= A <= -1 OR 128 <= A <= 255 

OLAS — 3068 eso JR NC» ERR sI1F 256 <= A 

O1AA AT e51 AND A fELSE O <= A <= 127, RESET CARRY 

O1ABo-3C e52 LTséS: Inc A , iNOW -126 <= A <= 254, CARRY SET IF A <= 0 

O1AC’ 2008 e53 JR NZ» LTS7 SUNLESS A = 0 OR 256 

O1AE — BOS es4 JR C»LTS7 SIF A= O 

o1B0 © Dy 855 EXX : 

O1B1 CB7A B54 BIT 7.0 Eid 

O1B3 Dy @57 EXX 

O1b4 205C ‘ 958 JR NZ ERR sIF A = 256 & MANTISSA WON’T BE SHIFTED 

O1BS = 77 59 LTS72: LD (HL).A 

O1B7 LI? B40 ° EXX 

O1BS 73 eal LO AB had 

O1B9 DD S62 EXX SDROPS THROUGH INTO NORM 
863 3END OF TIMES. 


‘ARITHMETIC 


Q1BA 3015 
O1BC 7E 
O1BD -A7 
O1BE ‘3SESO 
o1co 2801 
O1CZ AF 

— 0103 oy 
o1c4 A2 
o1cS CD4000 
O1CS 07 
o1c9 77° 
O1CA SS2E 
o1cc 23 
o1cD 77 

* O1CE 2B 


QO1Cr 1329 


OLD. 0620 
O1D3 nD 
0104 CB7A 
O1né o> 
O107 2012 
O1n9 Q7 
O1DA CRIS 
o1nc CH12 
OLDE oy 
O1nF CB13 
O1E1 CB12 
O1E3 D9 
OLE4 35 
O1ES 2307 
QOLE7 1QEA 


265 
846 
247 
e693 


849 — 


$70 


TB 
S32 
S33 
e34 
as 
S36 
Ss" 
S53 
aay 
870 
Syl 
892 
S73 
S74 
eS 
B76 
S97 
ore 
Sup 
200 
vO. 


SUMS 
Loc ‘OBJ'CODE M STMT SOURCE STATEMENT 


#EJECT 


NORM: — 


NORMC: 


LNMO2: 


LNMO3: 
LNMOS: 


NORMNC:s 


LNM2: 


3N 


wt we we us ws us ve ws ves ua ws we ve 


3 
JR NC,» NORM 
- 3A 
LO A» (HL) 
AND A 
LO A, @0H 


‘UR Z.LNMOS 


XxOR A 

EXX 

AND D 
CALL ZEROL 
RLCA 

LD (HL),A 
AK CyLNM45 
INC HL 

LO (HL)»A 
DEC HL 

JR LNM4S 


ve we ws 


JR NZ» LNM4 
RLCA 

RL E 

RL OD 

EXX 

RL E 

RL OD 

EXXx 

DEC (HL) 
JR Z+LNMO2 
D.INZ LNMZ 


PAGE 11. 
ASM 5.9 


° 


ORMALIZES D’°E“DEA. 
OFFSET EXPONENT IN (HL) [S IN THE RANGE -125 10 254 WITH 
CARRY FLAG SET IF NON-POSITIVE (EXPONENT O WITH CARRY FLAG 
GFF MEANS EXPONENT 256). 
STORES D’E“DE IN (HL+1), ...1 (HL+4). & 
ON ENTRY BIT 7 OF (HL+1) IS THE SIGN (0 +VE, SOH -VE), & 
tee OF STACK IS THE ADDRESS OF A FLOATING POINT NUMBER 

STORE, THE ORIGINAL DE (NB NOT A RETURN ADDRESS. NORM 
cAInT BE CALLED, BUT MUST BE JUMPEU OR DROPPED INTO. ), 
& UNDER THAT THE ADDRESS OF THE NEXT CALCULATOR 
INSTRUCTION. 
ON RETURN, POPS THE TOP OF THE STACK TO DE, & THE NEXT 
TQ HL’. 
SMASHES A.B & C. 
ENTER AT NORMC CR NORMNC fO AVOID THE CARRY FLAG SWITCH. 
NC 31F EXPONENT IS POSITIVE. 
LTERNATIVE ENTRY POINT TO NORM. 

SEXPONENT *= 0 & SHIFT RIGHT. 


. 


ge 


+IF ANSWER NON-ZERO. A = 0. 
sELSE SIGN MUST BE +VE 


sALTERNATIVE ENTRY POINT TO NORM. : 
EXPONENT > 0 (0 COUNTS AS 254). SHIFI'S D’E’DEA LEFT NOT MORE 
THAN 31 BITS UNTIL EITHER LEFTMOS sT BIT = 1 OR OFFSET 
EXPONENT = 0. 


aed 


$IF NO LEFT SHIFT IS REQUIRED. 


g¢? 
gcc 


sIF UFFSET EXPONENT IS DOWN Ta 9 


ARITHMETIC SUMS PAGE 12 
Loc OBU CODE M’STMT SOURCE STATEMENT asm 5.¢ 
O1E9 1807 919 ' JR LNMOS ; 
20 
O1EB 17 921 LNM42 RLA 
-OL1EC. 3006 922 JR NC, LNM4S : Lo 
Q1EE ' CO4900 R 923 — CALL RNDUP ‘ A 
OLFL 2007 924 JR NZ» LNM45 fIF RNDUP DID NOT GENERATE A CARRY 
oO1F3 ng 925) ; EXX j ‘ 
O1F4 1680 926 LO 0. 80H igre : 
O1FS DF 927 EXX , 
O1F7 = 24 928! INC (HL) 
o1Fe = 218 929 JR 2, ERRS os 
O1FA ES 920 LNM452 PUSH HL ng SSTORE MANTISSA. 
O1FB = 23 os INC HL 
O1Fe nF | 932 EXX say tn’ ' 
O1FD 5 933 . PUSH DE " we 
O1FE pe 934! EXX ane 
OFF C1 925) - POP BC ' a 
-ozdd’ 7th 926, .LOAB' "' sA t= DD, 
0201 17) > 937 ''' "8 RLA eee 
o2d2 CHI 933) RL CHL) | 
oz04 IF 937, RRA sCOVER UP THE TOP BIT OF A WITH SIGN (FROM (HL)). 
e208 77 |. 940 a LO (HLA : 
o204 23°"! 941 “INC HL 
o207 71 942 '' LD (HL)»Cc _  $¢(HL) t= EY, 
ozone 23 4S INC HL 
0209 72 944 LD ¢(HL).D 
0200 23° Sf GAS INC HL 
O20B , 73 GAG LO (HL)»E 
o20c El 947 POP HL 
oz0ob IM 943 POP DE 
OZ0E =D? _ 949 EXX 
OZ0F El 950 FOP HL ha 
o710 D9 ora EXX 
o211 C9 952 RET 
953 
: 954 sEND OF NORM. 
955 
0212 : 954 ERRG: RST ERROR CALL ERROR 6 ARITHMETIC OVERFLOW 
0213 OS 957 DEFB 5 LD & 


@. 


SUMS 


PAGE 13 
ASM 5.9 


sFLOATING POINT DIVISION, (HL) /:= (DE). 


SSMASHES B’C’D‘E*’, PRESERVES DEHL 


CALL FLOATZ2 
EX DE.HL 
‘XOR A, 
‘CALL TOFIX 
JR C,ERRS 
EX DE,HL 
CALL TOF IX 
“RET C 

‘EXX 

"PUSH HL 

» EXX 

» PUSH DE 
‘PUSH HL 


. CALL SUMSLD 


EXX 
PUSH HL 
-LD HB 
LO Lyt 
‘EXX 

LO H.C 
LO LLB 
XoR A 


LO B, -33 
“JR LOE2S 


RLA 
"REC. 

' EXX 

RL 

RL. B 

EXX 

ADD HL. HL 
EXX 

ADC HL» HL 
“EXX ; 
JR ©, LDE4 
SBC “Hs DE 
EXX 

SBC HL.DE 
EXX 

JR NC» LDE42 
ADD HL. DE 
EXX 

Agr HL. DE 
EXX 

AND A 

IR LOES 


AND A_ 
SE HL DE 


ARITHMETIC 
LOC’ (“OBJ CODE'M STMT SQURCE STATEMENT 
m4 953 #EJECT 
FED 
' 960 DIVIDE? 
' 961 
0214 ‘CDF8O02 ‘R762 
0217 EB 963 
o218 | AF 964 
Oo719 sCbZ501 R 965 
oz1C | 38F4 946 
Oz1E &B 967 
o21F cChes0o1 R és 
Oz22 | 1a FOF ro 
0223 DP 970 
o2r4 (ES 971 
0225 iD? $72 
o2zz6 (DS 973 
Ooze ES 974 
o223 CDIFOOQ R= 975 
O22h D9 976 
oz2c ES 977 
o2z20 160 978 
O22E 49 97? 
OztF DF 980 
az30 «41 Po 
Qz31 68 9a2 
OZ32 AF Peg 
0233 O6DF 24 
0235 1810 935 
ea wes 
O227 117 937 LDE2: 
O238. ,CE11 988 
O23A | DY Sa? 
O23B 1CB11 990 
OZ3D > CELO O91 
O23 py 992 
0240 29 73 LDE24: 
az41 02° 994 
0242 ED6A 995 
0244 LD IE 
0245 3810 997 
. 0247 EDS2 97% LDEZS: 
0247) on 999 
0248 EDS2 1000 
oz4ac.. one 1001 
oz40 300F 1002 
O24F 19 1003 
oz50 Lp 1004 
Oz51 EDSA 1005 
o253 D9 1004 
o254 8 A7 1007 
OZz55 ° 1808 1008 
1009 
QZ87 A7 1010 LOE4: 
oz58  EDS2 lois 


sA WILL HOLD THE SIGN OF THE QUOTIENT. 


SDIVISION BY 0 


SDIVIDEND = 0 


gece 


sB°C’CB t= DIVIDEND, D’E*DE 8= DIVISOR. 


3°° sOFFSET EXPONENTS 
ate ‘ . 


ave 
2 


SH°L“HL #= DIVICENDs 
SINITIALIZE PLACE COUNT. 
SRL H°L“HLB“C’CA 


gee 


| ha 


3 #eHHADDITIONAL 


32% 


SIF ROTATED OFF THE TOPs FAKE 65 BIT ACCUMULATOR. 
sCARRY IS eel 


| hee 
SIF SUBTRACTION WAS OK. 


ade 


3TO RESET CARRY 


$TO RESET CARRY 


a ey ae ee ee ee ee ee QO f@& & & & & & B&B 4 6 6 @ 


ARITHMETIC 


SUMS PAGE 14 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
o25A D9 1012 EXX 
025B EDS2 1013 SBC HL, DE ue 
25D OY 1014 EXX 

O25E § 37 1015 LDE42: SCF ' $HERE IF CURRENT BIT OF ANSWER IS 1. 

OZ5F 04 1016 LDES: INC B a 

0240 FA370Z2° R 1017 JPM, LDE2 

0243 FS 1018 PUSH AF: g? 

0264 28DA 1019 JR Z,LDE24 : 
1020 sNOW BYC’CA = FIXED POINT QUOTIENT, ONE OF TOP TWO BITS ON, 
1021 3 WITH 33RD & 34TH BITS IN CARRY UN STACK. 

0266 SF 1022 LD E.A sD°E’DE = B’C*CA. 

0267 Si 1023 Lo Oc 

0268 LY 1024 EXX 

0269 59 1025 Lo E,C eer 

026A 50 1026 LD DE yer 

OZ6B Fi 1027 POP AF ee 

o26C CBIS 1026 RR B ; ter 

O26E Fi 1029 PUP AF Ere 

O26F CB1B 1030 RR B 3“’ $3FOR NORM. 

oz71 DY 1031 EXX 

0272 «C1 1032 4 POP BC 

0273 «EL 1033 POP HL 
1034 SWE NOW CALCULATE THE OFFSET EXPONENT. THE -MANISSA IS BETWEEN 
1035 3 1/2 & 2, SO THE REQUIRED OFFSET EXPONENT IS THAT OF THE 
1034 $ DIVIDEND ~ THAT OF THE DIVISOR + 126+1. 

0274 «8678 1037 LD A.B . 

02754 1038 SUB C SNOW -254 <= A <= 254, CARRY SET IF A <= -1 

0276, C3AZ01 R 1039 JP LTS6 
1040 
1041 sEND OF DIVIDE. 


ARITHMETIC" SUMS 


Loc * 


Q279 | 
027A 
027B 
O27 ' 
O2TE 

220 
0282 - 
O284; 

1 Ve 


O284: 
0233 


oO28A 
O23B 
OZSC : 
o2eD 
O2ZSF, 
Oz Cae 20 
O29 1- 
O292 
O293 
O295 
O277 
O273 
O29 
O27B 
290 
o2°0 
Of TF 
. OZA0 
O2AZ 


O2A4 
OZAS 
O2A7 
OZAR 
OZAA 
O2AB 
oO2ZAC 
O2AD 
QOZAE 
Q2AF 


O2BO 


OB ‘CODE’ Mm! ‘STMT’ SOURCE STATEMENT ' 


: 1042 *#EJECT 
PRs 1043 
oe 1044 °° TRUNCs 


QEOO 1095 LO C,0 


PAGE 15 . Cis, d 
ASM 5.9 Bt a ee 


sTRUNCATES A FLOATING POINT NUMBEK X TOWARDS ZERO TO AN 


mf 1045 tt 4 INTEGER (SO FOR EXAMPLE -4.5 BECOMES -4). WE WRITE XE.X1, 
4 1044 tl -  § XB, o.e7XL FOR THE BYTES OF X. me 
meyeta 11047 "oo. 4 $ ON ENTRY, HL -> XE & DE -> XL+1. ara : 
re, 104% 1, $PRESERVES DEHL ; te : 
TE ny 1049 Lp: As (HL) - Ps & 
A7 1050 AND A ’ Be eg 
ce 1051) RET Z ;1F ALREADY AN INTEGER . 
FE@1 1052 CP 129 ‘ 
2006 1053 JR NC LTNCL sIF EXPONENT (NOT OFFSET) -> 0. A 
S400 1054 LO (HL)»0O SEXPONENT BYSE t= 0. : 
SE2O 1055 LO. A, Se (NOSIZE-1) $Se(NOSLZE-1) BITS OF MANT ISSA. To Be DELETED. 
1851 1056 - JR LTNGSS 
oe) . 1057 : he 
ras 1085S LINC: sWE FIRST TRY TO TRUNCATE INTO INTEGER TYPE. THIS IS POSSIBLE 
4 1059 . . $ EF THE EXPONENT IS 16 OR LESS, OR (WITH EXPONENT = 17) IF 
a) 1060 $ THE TRUNCATED NUMBER IS -2##14. 
FEP1 1041 CP 128+17 
201A 1042 - JR NZ, LTNCZ SUNLESS EXPONENT = 17 
my 1043 i) $ INTEGER TYPE TRUNCATION POSSIBLE IF X1 = SOH, XZ = Q, & XB HAS 
10464 : ‘ + BIT 7 OFF. ; 
23 1065 INC HL 
23 10446 INC HL 
22 1047. Inc HL 
3E30 - 1046 LD A, SOH 
AS : 1069 - AND (HL) 
2B 1070 DEC HL 
BS . . 1074 GR (HL) 
2B 1072 DEC. HL : 
2003 1073... JRONZ,LINCLS SUNLESS X2 = O & X23 HAS BIT 7 OFF 
BESO 1074 LO A.S0OH 
AE 1075 XOR CHL) 
2B' 1074 LTNC15S: DEC HL 
2036 1077 JR NZ» LINC29 $IF INTEGER TYPE IMPOSSIBLE 
77 1078 LOE (HL).A 3XE t= 
23 1079 Inc HL 
S4FF 1080 LO (HL),OFFH + 
2E 1081 DEC HL 
3E13 1082 LO A, a#(NOSTZE-2) 
less 1083 JR LTNCSS $TO0 ZERO BYTES X2, wee »XbL | 
1034 
2020 1085 LTNCz: JR NC,LTNCS 31F EXPONENT > 17 
os 1084 PUSH DE 
2F 1087 CFL 
C491 1088 ADD A, 128+17 3A t= NUMBER OF RIGHT SHLFTS REQUIRED ON X1 Xz 
23 — 10m ING HL 
5b 1090 LO Ol, (HL): sD = Xt 
2! 1091 INC HL 
‘SE 1092 LOE, (HL) 3E t= X2 
2B 1093 DEC HL 
26 1094 DEC HL 


> 


ARITHMETIC 
Loc oBJ conE m 
O2B2 - CB7A 
O2B4 2801 
O2B4 aD 
O2H7  CBFA 
OZRY 0608 
OZEB 70 
o2zBt = ga 
OZED 3304 
O2ERF 5A 
ozcO 14600 
o2zt2 . Fo 
e203 2807 
o2th 47 
o2zte ° CBR3A 
o2es CHIB 
2CA 10FA 
ezcce cno0o0dd xX 
O2CF ica 
o2b0 CF 
o2p1 = 7E! 
o2n2 DéAo 
o2D4 FO 
_o205  ED44 
o2z07 DS 
o2ne EB 
azn? 2 
OZzDA 47° 
O20B CB38 
o2nDn CESS 
_O2UF CRE 
O2ZE1 2805 
O2ZE2 3600 
OZE5 2B 
O2ZEG  10FB 
Q2ZE8 E407 
O2EA . 2809 
oOzEC 47 
O2ZED EFF 
OZEF CB27 
O2F 1 10FC 
O2F3 AG 
O2F4 77 
ozFS EB 
O2F6 D1 
O2F7 Cy 
o2F8 CDFBO2 R 
O2FB EB 
o2FC 7E 


STMT 


1076 
1097 
loys 
1099 
1100 
1101 
1102 
1103 
1108 

105 
1106 
1107 
fice 
L109 
4110 
1111 
1112 
ee 
1114 

115 
ie 
1117 
1118 
1119 
1120 
iizi 
1122 
1123 
1124 
1125 
1126 
1127 


SUMS PAGE 14- 


SOURCE STATEMENT ASM 5.9 
BIT.7,.D 
_ JR Z,LTNCZ2 3IF NUMBER >= 0 
DEC .c ' 
LINC22: SET 7,D 
LD Bg 
Sun B : : 
ADD A.B - es 
JR Ca LTNCZ4 sIF ACS 
LO ED 5 
Lo pa 
SUB B ; 
LINC24: “JR Ze LTINCZS sIF A= O 
LO BA 
LTNC26: SRL D 
RR E 
— ERINZ LTNG26 
LINC23: CALL STDE_S 
PoP DE 
RET 
LTNC29: LD A» (HL) . 
LTNC3: sHERE FOR FLOATING PUINT TRUNCATION - 
SUB 1Z28+6% (NOSIZE-1) 
RET P SIF EXPONENT >= &t(NOSIZE-1) 
NEG 3A '= NO. BITS TO BE DELETED. 
LINC35: PUSH DE : 
EX DE.HL 
DEC HL 
LO BA 
SRL B 
SRL B . 
SRL B 3B t= NO. WHOLE BYTES TO BE DELETED. 
JR Z,LTNCS sIF NO WHOLE BYTES TO BE DELETED. 
LTNC4: LE (HL),0  $DELETE A BYTE 
TEC HL 
DINZ LTNC4 
LINCS: AND 7 3A t= NG. BITS LEFT FOR DELETION. 
JR Z,LTNCG s1F NONE, 
LO BA 
LO A.-1 
LINCSS: SLA A ; 
DINZ LTINCSS 3A HAS 1S AT TOP FOR BITS TO REMAIN, OS AT BOTTOM 
AND (HL) 3; FOR THOSE FOR DELETION. 
LD (HL)A 
LINC&: €X DE.HL 
POP DE 
- RET 
FLOAT2: SAPPLIES FLOAT TO BOTH (HL) & (DE) 
> CALL LF2_8 
LF2.5: EX DEHL 
FLOAT: _ $CONVERTS NUMBER (HL) TO FLOATING FOINT FORMAT 
SPRESERVES DEHL 
LO A» (HL) 


rs 


ARITHMETIC 


Loc 


OZFD | 


O2FE 
O2FF 
O300 
O303 
O204 
O305 
O2O04 
O307 
O203 
O20A 
O30B 
assoc 


SOE . 


a320F 
o310 
O312 
O313 
314 


OF16- 


Oz17 
O313 
os17 
O316 
os10 
OS1F 
Osz1 
Os22 
O323 
O324 
os25 
226 
O227 
OS23 
0327 


SUMS 

OBJ CODE M STMT SGURCE STATEMENT 
A7 1150 AND A 

co 1151 RET. NZ 

oS 1152 FUSH DE 
COOddO X 1153 CALL LODE 
AF 1154. xOR A 

23 1155. INC. HL 

77 - 2156 LO (HL) A 
2B 1157 DEC HL 

77 1155 LD (HL).A 
691 - 1159 LD B, 128417 
7A 1140 Lo AD 

A7 ' — 1161 AND A 

2008 1142 JR NZ LFT2 
B2 1163 OR E 

42 1144 LOU BLD 
2310 1145 JR Z LFT4 
a3 1146 LO OLE 

ag i 1147 LD EB 
O489 1163 LOI 8, 128+9 
- EB 11469 LFT2: EX DE.HL 
OS 1170) LFT3: oEC B 

2? 1171 Avo HL» HL 
3OFC 1172 JR NCLLFTS 
CHO? 1173 RRC C- 
CBICc 1174 RR H 

CBLD 1175 RRL 

EB 1174 EX DEH 
25 - 1177 LFT4: DEC HL 

73 1178 LO (HL),E 
2B 117% DEC HL 

/2 1150 LO (HL) ft 
2B 1131 Dec HL 

70 1152 LO (HL).B 
Di 1123 POP DE 

cy 1134 RET 

1185 : 
7 2 11246 END 


PAGE 17 
ASM 5.9% 


sIF ALREADY FLOATING POINT 


’ 


$ZERO LAST TWO BYTES 
$B t= 1 + OFFSET EXPT FOR 2##15 


SIF MS BYTE <> 0 


3B t= 0 
31F NUMBER = 0 


$SHIFT DE 1 BYTE RIGHT 
3H c= 1 + OFFSET EXPT FOR 2%#7 


’ 


PUCKET CALCULATOR. 


Lac 


9000 
0001 
0002 


0003 
a004 
0005 


OBJ CODE M STMT 


CALC PAGE 1 
SOURCE STATEMENT ASM 5.9 


#HEADING POCKET. CALCULATOR. 


#LI_ENABLE EQu 6499H 


CALL_BANK Eu! &SD0H 
MOVE_SZ EQu DRIVES-6000H 
tEST7 i Ew OF FFFH-MOVE_SZ+1 
FIX EAU DEST7—4000H : : ~~ 
CALL VBANK Eau. CALL_BANK+F IX 
GOTO. BANE Ew 6572H sADDRESS OF "GO TO BANK" BANK SWITCHING 
3 AWARD. 
XFERBYTES Ew &722 SINDIRECT DATA TRANSFER BETWEEN BANKS, 
GOTO_EXT Ewu 6S 15H SFOR INITIALIZATION CODE IN HOME BANK 
§ EXTENTION. 
SLYM . Eau OLABH SADDRESS OF TAFE ROUTINES FOR SAVE, LOAD 
§ VERIFY ANU MERGE COMMANDS. 
BLUSCT EQu ODE 4H SADDRESS OF INITIALIZATION ROUWLINE TO 
me $ BUILD THE SYSTEM CONFIGURATION TABLE. 
RESSCT . Eutt . OC4CH SADDRESS UF RESET ROUPINE TO ALO DEVICES, 
PASSING EQu OF OPH SADDRESS OF ROWTINE TO PUSH FARAMETERS TO 


§ THE BEU ROUTINES ONIQ THE MACHINE STACK, 


‘GLOBAL ARRAY, CTRO, ROOM?» RAMNO, STBOOL, TESTO, NEGATE, STK_M 
GLOBAL USRRET 


EXTERNAL SELECT, SELHL, INCH : sEDIT 
EXTERNAL SYNERR2FIX_U,CHK_SZ) 1EMS, ERRE: FIX. 3 SYNTAX 
EXTERNAL EXPRN sEXPRN 
EXTERNAL POPSTR»PSHSTR» ALPHA? , i ~ S$ IDENT 
EXTERNAL XEY.,STK_A» STK_EC,FP2BC,FP2A, QUTPUT,L ODE, STDE_S s INQUT 
EXTERNAL ADD, DIVIVE, SUB, TIMES, TRUNC, FLOAT 7 SUMS 


EXTERNAL TAN, COS, EXF, INT,» INTDIV, LN, TO_THE, ROOT, SIN» ANGLE sFUNCTS 
EXTERNAL ASN, ACS, ATN 


5 CALCTR HANDLES A STACK & A MEMORY AREA OF FLOATING FPUINT NUMBERS IN RAM. IT 
SUPERATES BY FREATING THE BYTES TEXTUALLY FULLOWING THE CALL THAT STARTED (T Ore 
SAS INSTRUCTIONS TO BE EXECUTE, 

3 CALCTR TAKES A COPY (BREG) OF THE B REGISTER ON ENTRY, & USES THIS AS A LOUPF 
SCOUNTER WITH THE CUMMAMNUS LOOP & VECTOR, ON EXIT, THE (POSSIELY NEW) VALUE .CF 
'(BREG) IS RESTORED To B. 

3 A FOINIER TO A STRING IS HELU ON THE CALCULATOR STACK USING THE 1ST 2 BYTES 
sFUR THE ADDRESS UF THE 1ST CHARACTER & THE “ND 2 BYTES FOR THE LENGTH. 


SCALCULATOR CONSTANTS. (ASSUMES NOSIZE <= 15.) ; 


CONSTS: DEFB O SCONSIANT O = O 3 3306H 


OEFB —&O 

DEFB O 

DEFB 1.SHL.6 sCUNSTANT 1 = 1 
DEFB -30 

DEFB O 


) 


POCKET CALCULATOR. 


Lac 


0006 


0007 
0003 


0009 
Q00A 
QOOB 
oo0c 
oooD 


QOQ0E 
QQ0F 
a010 
Qa1t 


CALC 


OB! CODE M STMT SOURCE STATEMENT 


a1 


473 
474 
4735 
476 


477 


478 
479 
480 
491 
482 
483 
494 
485 
436 
487 


LEFB 


DEFB 
DEFB 


DEFB 
DEFB 
DEFEB 
DEFB 
DEFB 


DEFB 


CEFB 


DEFB 
DEFB 


1 


43 
ce) 


OCOH+49 
O49H 
OFH 
ODAH 
OA2H 


1.SHL.6 
-S 

fa) ‘ 

10 


PAGE 2 
ASM 5.9 


sCONSTANT 2 = 1/2 ° 


SCONSTANT 3 = PI/2 
8 = 1.9707 96326 79489 66192 313220 
§ 1.921FB5443H 


SCONSTANT 4 = 10 


POCKET CALCULATOR. 


CALC 


(LOC OBS CODE’ M STMT SOURCE STATEMENT 


wo my 


‘0012 +2604 


0014 7701 
OO16 | BCOO 
0013 ‘0000 


/QO1A 60000 


oo1c = +Q000 


OO1LE = =-0000 


0020 B202 


0022 BBO? 
0024 (L202 


0026. fizO2 
onz3 1 D202 
002A C202 
a02zt D202 
QOZE h202 


OO20 0000, 


0032 C402 
0034 D202 
O03 D202, 
0033 D202 


“QO3A 0202 


00st D202 
OOSE D202 
a040 3303 


0042° 7503 
0044 S302 
aOo4s Dce3 


0n43 AP01 
Q04A 0004 
004C 7503 
QO4E ORO4A 
OO30 0000 
QO032 o000 
0054 0000 
0036 0000 


0083 calaTare) 
OOSA Qda0 
oo0sc 0000 
OOSE 0000 


0060 0000 
0042 0000 
0064 CDOL 


O064 A501 
0068 E701 


OO4A Eaot 
O06C EEQO1 
OOLE BLO3 
0070 6003 | 
Q072 PEO2 
0074 FROO 


AAADADAADAAAxxxxxxxaemae ax DUDUUMMUBIMD ABDAARAMAxDADBBBUIDxxxxDasDA 


‘433 
'439 
1490 
1AD1 


1492 


1492 
14o4 
4S 
AOS 
497 
47g 
aa9 
SOO 
Son 
502 
503 
504 
S05 
506 
$07 
508 
509 
510 
511 
512 
$13 
514 
515 
516 
S17 
513 
519 


S20 


S21 


522 
523 
[ed 
sale 
25 
(ed 
ror 


327 
Sug 
29 
S30 
S31 
S22 
S33 
S34 
S35 
S34 
a7 
338 
a9 
S40 
S41 


#EJECT 


LISTOs 


LIST1L: 


DEFW 
DEFW 
DEW 
DEFW 
DrrFW 
‘TEFW 
‘DEFW 
DEFW 
'DEFW 
'DEFEW 
‘DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DErW 
DEFW 
fEFW 
DEFW 


DEFW 
DEFW 
DEFW 
DEFW 
DEF W 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
GER W 
DEFW 
DEFW 
LEFW 
’ DEFW 
DEFW 
LEFW 
nEFW 
DEFW 
DEFW 


DEFW § 


DEFW 
DEW 
DLFW 


SADDRESSES OF COLE’ FOR COMMANDS 


IF JUMP 
EXCH 
LOSE ' 
SUE 
TIMES 
DIVIDE 
THE 
oR 
NOAND 
CMPRSN 
CMPRSN 


(CMPREN 


CMPREN, 
CMPRSN 
CMFRSN 
ADL 

STGAND 
CHFRSN 
CMPRSN 
CMFRSN 
CMFRSN 
CMPRSN 
CHRREN 
CONCAT 


we se we ae 
ia 


i+$ 


SADDRESSES OF CODE FOR COMMANDS 


VAL - 
USHS 
C_INKY 
NEGATE 
COLE 
VAL 


SI 


INT 


NOT 
RAMNO 


3 VALS 


sUSR WITH STRING CPERAND 


3 INKEYS# 


sARCSIN 
sARCCOS 
+ ARCTAN 


3 SQRT 


sSTRS 
3 CHRS 


"3 0UP 


THAT USE STKDWN. 


WITHOUT STKOWN. 


POCKET CALCULATOR. CALC PAGE 4 
LOG OBJ CODE M STMT SQURCE SIATEMENT ASM 3.9 
0076 Qa000 X $42 s+ 4. DEFW INTOIV 
0073 1D04 R743 DEFW JUMP ? 
007A O101 R .F44 Feo DEFW LITRL 1 SLITERALY 18 
oorc 1104 RR 545 DEFW LOOP « 
OOTE PLIOL R 346 VEFW MINUS? 
relar={@) HPOO2 R 547 DEFW PLUS? 
Q082 S204 R S48 DEFW QUIT 
0084 '@000 X S49 DEFW ANGLE 
O08  ado0 X S50 DEFW TRUNO 
GOES ‘HDA R G51 DEFW XEMTB 
OOSA ©oaag X B52 CEEFW -XEY 
QO 000 iX SSS QEFW FLOAT yt 
pod nage 1 54 iia 2 
Aue thous 1 S35 LIsT2s +a cy §QQDE FOR 4 COMMANDS WITH BUILT IN OPERANDS. 
QOSE S401 IR aS DEFW CRSY |: 
0030 DOOL IR S57 : DEFW CONST: 
O92 1301 Ro Sse OEFW CORY 1 
0094 = =I4AQL R Say . KEFW MEMORY 
prog tha Pho ted ‘ a ' ae 
eve Cd ce { i heoatys re Le) 
eh a ey tion \ : ae ree eo ' 
vette! Prose ie a ec ee . , 
peas he oe I: a rt ' ied 
tryy thon \ im) Mey! dea ae 
vee #4 Sep ' a] ' S 1 ott 
. 4 bbc 1 ' 4 
vfee iY ' aan Ser 1 
a4 yoyo ' 


POCKET CALCULATOR. 


Loc OBJ CODE M STMT SOURCE STATEMENT 


oov6 CDS603 R 
a099 = 78 

009A 32675C 
oo7n 8 §6fIp 

QO9E E3. 
OO9F fg. 

OOAO  ELS3455C 
oOA4 Bb? 

OOAS 7E 

Q0AS 223 

OOA7 ES 

ones = A7 

QOAY FZBBOO. R 
COAD 57 

QOAD . E660 
OOAF OF 

OOBO OF , 
OObL OF 

OOB2 OF 

OOBS C4670 
OORS éF 

QORS 7A’ 

QOOE7 E61F 
OOHY 180E 
OOBB FES 
OORD 2006 
OOBF Dy 

o0cO =OLFBFF 
eons 4 

ooc4 =n 

oocs ay 

ooce = Lp 

OOC7 O7 

oocs = 6F 

ooce 111200 k 
oort 2400 
Ooce 1? - 

GOUF SE 


560 
561 
62 


S43 
"364 


S65 
B46 
267 
56S 
bathed 
370 
571 
S72 
573 
S74 
575 
57& 
377 
573 
379 
S80 
S31 
S82 
583 
So4 
SS3 
Se 
S27 


Leheted 


aay 
Syvo 
ker bo | 
S92 


S73 | 


SPA 
B95 


S94 


v7 


S98 
av? 
600 
601 
602 
603 
604 
605 
606 
607 
608 
409 
610 
411 
412 
6123 


CALC PAGE 5 
ASM 5.9 
HEJECT 
SROUTINE CALCTR TO OPERATE THE POCKET CALCULATOR, CALLED BY 
3 RST 40 IN MODULE BASIC. 
3 CN ENTRY SETS (BREG) := B, 
3 SMASHES ACD“E’ & ANY REGISTER SMASHED BY THE INSTRUCIICN 
3 SUMROUTINES, EXCEPT THAT HL’ IS ALWAYS PRESERVED, & B IS 
$ PRESERVED AS LONG AS THE SUBROUTINES ARE CAREFUL WITH’ 
$3 (BREG). 
+ ON RETURN, HL -> TOP OF CALCULATOR STACK, DE -> NEXT FREE 
3 SFACE, & B t= (BREG). 
CTKOS SHERE FROM RS1 40 & NOWHERE ELSE 
CALL STKPIR 
CTRL: $JUST LIKE CALCTR, BUT ON ENTRY LEAVES HL & DE ALONE. 
- LD AB 
; LD (BREG).A 
CTR2:. sJUST LIKE CTRI, BUT ON- ENTRY LEAVES (HREG) ALONE. 
EXX 
EX (SP). HL $°° $HL #—> CURRENT SYMBOL FOR INTERPRETATION. 
EXX 
RUNS Li (STKENXT),DE sUPDATE (STKNXT). 
EXX sNCW WE INTERPRET THE NEXT INSTRUC ICON. 
LO A, (HL) tale 
INC HL $°* $HL ¢-> NEXT SYMBOL 
 RUNI: PUSH HL ¢o7 
AN A , g¢7 
JP PL LRNZ $°° SIF COMMAND DOES NUT CONTAIN BUILT-IN ARGUMENT. 
37° $A = LXXYYYYY WHERE XX = COMMAND CODE, YYYYY = ARGUMENT. 
LD DA ger 
AND GOH 37° 3A f= OXXO OOCd 
RRCA pe? 
RRA hae 
RRCA aad 
RRCA ad $A s= OCOO OXXO 
ADD A, LISTZ-LISTO ees 
LD L.A ed 
LO ALD eee ; 
AND 1FH . 37° $A t= O00 YYYYY 
JR LRNGS ed 
LRN2?t CP (LISTI-LISTO)/2 hed 
JR NCL LRN 37° $IF STKUOWN IS NOT TO BE EXECUTED. 
EXX 
STKDWN: LO BC,-NUSIZE 
. Lo DH 
Lo EL 
ADD HL. Bo 
EXX 
LRNG: RLCA 3° $A #2= 2 (TOP BIT WAS O), 
LO LA Vee ; 
LRNSS: LO DE,LISTa Pict 
LO HO er? 
ADU HL, DE ace 
LO E, CHL) oe fe 


© ©e6eoeeeeeeee%eeeee%ee%#ee¢eeee ¢@ 


wo 


POCKET 


Loc 


oono 
oon 
oon2 
oons 
OOL6 
oan7 
oons 
oOour 


OOE4 


OOES. 


QOES 


QOED- 


QOEC 
QOEN 
QOEE 


CALCULATOR. CALC PAGE & 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 ; 
23 614 INC HL 7 
56 615 LD D, (HL) rr 
21A000 R416 LD HL, RUN nag 
Es 617 EX (SP).HL $°° $HL #-> NEXT INSTRUCTION, 
DS 618 PUSH DE aed 
D9 619 EXX” ; 
EL4B665C = &20 LD BC, (BREG-1) $B t= (BREG) é 
co 621 LOSE: RET 3G0 OFF TQ CARRY GUT INSTRUCTION: RUN 1S STACKED AS 
622 3 RETURN ADDRESS. HL,DE & (STKNX1) ARE STACK 
623 3 POINTERS (HL -> TOP OF SfACK, DE = (SITKNXI) -> 
624 3 NEXT FREE PLACE, EXCEPT THAT FOR THE OPERATIONS IN 
625 ; LISTO, HL & DE HAVE BEEN DECREMENTED BY NUSIZE BUT 
rs ' 626 + (STKNXT) HASN’T), B = (BREG). 
&27 + (NOTE®- IF THE INSTRUCTION WAS 
428 $ ‘LOSE’ THEN WE HAVE DIONE EVERYIHING NECESSARY EX- 
629 + CEPT FOR TIDYING UP THE Z&O. STACK. ) 
630 y 
" 631 XEQTH: SEXECUTES (EREG) AS A CALCULATOR INSTRUCTION, CARRYING ON 
622 3 AFTERWARDS WITH THE INSTRUCTION AFTER XEOTS. 
Fi 633 POP AF sTO WASTE RUN FROM THE Z80 STACK 
3A6/5C 634 LD A, (BREG) 
D9 635 EXX _ 
18C3 636 "JR RUN 
637 
628 ROOM?: .  $ABORTS, ERROK 4, UNLESS ROOM FOR NOSIZE BYTES TO BE INSERTED. 
639 + SMASHES A, PRESERVES DEHL, BC t= NOSIZE, 
DS £40 PUSH DE 
ES £41 PUSH HL 
010500 642 LD BC.NOSIZE 
cDo000 =X: 643 CALL CHK_3Z 
Ei 644 POP HL 
D1 645 POP DE 
ce 646 RET 


er ee ee ee ee a a a a 2 we 


wy 


PUCKET CALCULATOR. 


Loc 


OOFB 
OOFE 
0100 


Q101 


0102 . 


OBJ COLE M STMT 


EDSB655C 
COF BOO 
EDS3655C 
co? 


CDE400 


‘ EDBO 


ce? 


CDE400 


D9 


R 


R 


R 


647 
648 
649 
$50 


*é51 


$32 
653 
654 


SOURCE 


#EJECT 


STK_M: 


RAMNO® 


LITRL: 


ROMNO: 


CALC PAGE 7 
STATEMENT ASM 5.7? 


$THE CODE TO EXECUTE THE COMMANDS, WHICH FOLLOWS, TAKES THE 
$s FORM OF SUBROUTINES. ANY SUBRUUTINE MAY BE USED AS LONG AS 
s- IT TAKES GOOD CARE OF DE (AS CALCULATOR STACK POINT- 

* ER), HL’ (THE CALCULATUR PROGRAMME CUUNTER) & (BREG) (THE 
-$ CALCULATOR LOOP COUNTER). ‘ 


sPUSHES AN UNPACKED FLOATING POINT NO. POINTED AT BY HL ONIG 
3 THE CALCULATOR STACK. 
SUPDATES (STKNXT). DE := NEW (STENXT). 
sHL +2:= NUSIZE, 
SABORTS IF NO ROOM. 
LD DE, (STKNXT) 
CALL RAMNO 
LD (STKNXT), DE 
RET . 


sCOPIES UNPACKED FLOATING POINT NUMBER STARTING AT (HL) TO 
§ (DE): INCREASES HL & DE TO POINT JUST BEYOND THE ENDS OF 
3 THE NUMBERS. : 
s SMASHES A, BC t= 0. 

CALL ROOM? 

LDIR 

RET 


sPUSHES A PACKEU FLOATING POINT NUMBER POINTED Al BY HL’ ONTO 
3 THE CALCULATOR STACK. 

§-ON RETURN HL” POINTS AT THE NEXT BYTE AFTER THE NUMBER, 

5 DE & HL HAVE BEEN INCREMENTED (AS CALCULATOR STACK 

3 POINTERS) & A & B ARE SMASHED. 


LD HD 

LD LE sULROPS THROUGH INTO ROMNC. 
SCOPIES PACKED FLOATING POINT NUMBER STARTING AT (HL) 10 
$ (DE); INCREASES HL’ & DE TO FOINT JUST BEYOND THE ENDS OF 
§ THE NUMBERS. 
§ SMASHES A & B. 
§ PACKED FORM: THE 1ST BYTE IS XXYYYYYY WHEKE XX = NUMBER 
3 GF GIVEN BYTES IN THE MANTISSA - 1. IF YYYYYY = 0 THEN 
§ THE 2ND BYTE IS THE OFFSET EXPONENT —- 803 OTHERWISE YVYYYYY 
3 IS THE OFFSET EXPONENT - SO (FOR WHEN THE OFFSET EXPONENT 
3 IS IN THE RANGE 65 TO 127, INDICATING AN ACTUAL EXPONENT | 
3 IN THE RANGE -47 TO 15). 
3 AFTER THE GIVEN MANTISSA BYTES, THE MANTISSA IS TO BE 
$ FILLED IN WITH O38 UN THE RIGHT. 

CALL ROOM? 

EXX 

PUSH HL 

EXX 

EX (SP),HL 

PUSH BC 

LD A» (HL) 

AND OCOH 

RLCA 


POCKET CALCULATOR. ; CALC 


PAGE 2 


Loc OBJ CODE M STMT SOUKCE STATEMENT ASM 5.9 
O10F o7 701 RLCA 
o11i0 4F 702 LO CA 
O11. oc 703 Inc C $C 8= NUMBER OF BYTES GIVEN IN THE MANTISSA. 
O112 7E 704 LD A» (HL) 
0113 E463F ‘705 AND 3FH 
o11s 2002 706 JR NZsLRO2 © sIF EXPONENT [S BUILT IN TO A. : 
. OL17 23 707 F INC HL. < 
o11g /E 703 ° LD A» (HL) : 
119 C&O 70% LROZ: ALL A» SO $A 8= OFFSET EXPONENT - : 
O11B 12 710 LD. (DE),A 
° 0110 SEOS 711 LO A, NOSIZE 
O11E 91 712 Sup c $A 2= NUMBER OF TRAILING OS + 1. 
O1L1F 23 713 INC HL 
o120 1300 714 INC DE 
o121 0600 715 LD BO SBC t= NUMBER OF GIVEN MANTISSA BYTES. 
O123 EDBO vat) LOTR 
O11 C1 717 oo POP EC 
O12 E3 713 EX (SP),HL 
O127 uo? 71? EXX 
o128 El 720 POP HL 
‘O129 OD? d 721 : . EXX 
O12A 47, 722 LD B.A 
Oo12B AF 723 " XOK A 3A t= 0 
o12c OS 724 LRU: DEC 8 
e1lsD) 6 6CsS 725 RET Z $1IF ALL THE TRAILING OS HAVE BEEN PUT IN. 
O1ZE 12 726 LD (DE).»A 
O12F 13 727 INC DE 
0130  13FA 723 JR LROS 
729 
730 ROMSKP: sMOVES THE POINTER HL“ THROUGH A PACKED FLOATING POINT 
731 $s NUMBERS (SEE ROMNO). SMASHES A & 8. 
732 3 ##% IT IS ASSUMED THAT LOCATION O IS AT THE BEGINNING OF 
733 3s A LARGE BLOCK (AT LEAST A#NOSIZE BYTES) OF RUM & HAT DATA 
7340 + CAN BE SAFELY LOST BY REAUING IT INTO THIS AREA, ### 
0132 A7 735 AND A 
0133 cs , 734 LRP2t RET Z SIF A= QO, 
o1s4 FS 737 PUSH AF 
O1LS5 DS 33 PUSH DE ; 
0136 110000 i LD DELO , ; 
O139 CDOZ01 R 740 CALL ROMNO SREADS A NUMBER INTO ROM, 
o13c ol 741 FOP DE 
QAZD Fl 742 FOP AF 
O1LSE 3D 743 DEC A 
OL3F 13F2 744 JR LRP2 
74S 
746 ARRAY: SHL +2= AHNOSIZE. SMASHES A,B & C. 
o141 747 ASSERT NOSIZE=S 
0141 4F 743 LD CA 
0142 O7 749 RLCA 
O143 07 ' 750 RLCA 
0144 31 ste 731 : Ano Asc 3A #2= 5, 
. O145 4F 732 ' "LO GA 
O146 0600 753 LD 6.0 
0143 oF 7354 ADD HL, BC 


POCKET CALCULATOR. CALC 


Loc 


0149. 


O14A 
O14B 
O14E 
O151 
0154 
O155 


O156 
0157 
O158 


0159 


O1LSA 
O15D 
O1SE 
O1é61 
0144 
O165 
O166 
0167 


OBJ CODE M STMT SOURCE STATEMENT 


71 B08 , LO (HL) ec 


| 


co 755 RET 
756 ; 5 | 
757 MEMORY: SLOADS ONTO THE CALCULATOR STACK THE A-TH NUMMEK IN THE AREA 
753 CO + (IN RAM) POINTED AT BY (NEM). 
759. . 3 SMASHES AB & C. 
DS 760 . PUSH DE 
2A68SC 7414 LD HL, (MEM) 
CD4101 R742 . CALL ARRAY ‘ 
CDFBOO OR 743 CALL RAMNO 
E1 764 POP HL 
co 765 RET 
: 76 
767 CONST: LOADS ONTO THE CALCULATOR STACK THE A’TH CONSTANT (IN ROM). 
768 . # INCREMENTS HL & LIE AS CALCULATOR STACK POINTERS. 
; r2 te ’ SMASHES A,B & C. 
62 ; 770 LD HD 
6B  »=————«CTFY LO LE 
nt 772 EXX 
ES 773 PUSH HL : 
210000 R774 LD HL,CONSTS 
te) 775 EXX 
CD3201  R 776 CALL ROMSKP 
CD0301 R777 . CALL ROMNO os 
no 778 EXX 
E1 779 POP HL 
Le 780 EXX 
ce 7281 RET 
182 
783 COPY: FCOPIES THE TOP OF THE, CALCULATOR STACK INTO THE A’TH SPACE 
784 + IN THE AREA POINTED AT BY (MEM) (KEEPING THE NUMBER GN THE 
725 + STACK). 
7:36 $ SMASHES ALB & C. 
787 + NOTE ~ CALLS ROOM? (VIA RAMNO). 
ES 789 PUSH HL 
EB 729 EX DE,HL 
2AS85C., 70 LD HL, (MEM) 
“CL4101° oR 791 CALL ARRAY 
EB 792 EX DE,HL 
CDFHOO oR 793 CALL RAMNO 
EB 794 EX OE,HL 
E1 795 POP HL 
C9 796 RET 
797 
793° EXCH: FEXCHANGES THE TOP TWO VALUES OF THE CALCULATOK STAck. 
199 + SMASHES ABC, 
200 $ (MORE PRECISELY, LET HL & DE —> 
eo1 i 2 NUMBERS X & Y IN RAM. GN RETURN, THE CONIENTS OF x & Y 
802 FARE EXCHANGED, & HL & DE ARE INCREMENIED BY NOSIZE.} 
0605 6103 LD B,NOSIZE 
1A €04 LXCHi? LD A, (DE) 
4E 805 LDC, (HL) 
EB 306 EX DE.HL 
12 207 LO (DE).A 


POCKET CALCULATUR. CALC PAGE 10 


Loc CBJ CODE M STM1 SOURCE STATEMENT ; ASM 5.9 
OLVFE 23 809 ING HL, 
OL7F 13 310 INC DE 
O180°  10F7 =) re DUNZ LXCHt 
812 COND NOSIZE.MOD. Z=1 : 
o1@2 EB . 813 EX CE, HL ' $ASSEMBLED IF NOSIZE IS EVEN. 
a re 814 ENLIC 


Ose CARs. 815 RET 
mr Pberyest 4 ; 

Cr i | Ce ee t. 

mpd 14 ' 
- : 


ef 
Loe ‘ 


POCKET CALCULATOR. CALC PAGE 11 


Loc us) CODE M STMT SOURCE STATEMENT ASM 3.9 
$16 #EJECT 
$17 : 
813 CBSV: sSUMS A TRUNCATED CHEBYSHEV SERIES 
819 3 S$ = 2eCSUM (N = O 10 N) ACNI#1CNI(X)-ALOI/2), 
* 820 5 A CALL TAKES THE FORM (FROM WITHIN THE CALCULATOR) 
| 3 DEFBR CBSV1+N+1 ‘ 
G22 $ ACN] & 
S23 ; ° 
82 3 .. THE COEFFICIENTS ACN] IN PACKED FORM. 
S25 3 . 
826 3 ACO] 
827 3 X ON TOP OF THE CALCULATUR STACK IS REFLACED BY S.. 
823 3 USES MEMORIES O.1 & 25 MAXIMUM STACK DEPTH = 3. 
827 § ON ENTRY A = N+l. 
830 | 3 SMASHES EVERYTHING EXCEPT B. ON ENTRY & RETURN, HL -> TOF 
S31 3 UF CALCULATOR STACK & DE —> NEXT FREE SPACE, & ON RETURN 
' 832 $s HL’ -> INSTRUCTION AFTER THE LAST COEFFICIENT ACO]. 
S33 
S34 $THE METHOD USED IS AS FOLLOWS: Wk DEFINE 
835 § BEN+1] = BEN+2] = 0, & FOR O <= N <= N, 
SS , , $ BEN] = 2#X#BCN+1]-BCN+2]-ACN]. THEN S = BC2]-BCO), | 
0184 47, 237 i. LD BA ; 
0135 CD9900 Ro 833 * CALL CTR1 S(BREG) t= 0 
0183 31 S39 CEFB DUP 
O13? OF 840 DEFB ADD 
O1SA co 641 OEFB CORY+0 SMEMORY QO t= 2X, 
O18B Oz 842 DEFB LOSE 
aisc AQ 343 DEFB CONST+0 39 
o1gu C2 244 QEFR COPY+2 
245 LCv2s 3TOP OF STACK = BCI, MEMORY 1 = BLB+2) (EXCEPT 157 TIME 
: S46 $s ROUND) & MEMORY 2 = BLB+1]. 
O1Sk cal : 347 DEFB DUP 
O1SF EO 843 DEFER MEMUKY+0 
O190O 04 249 DEFBR TIMES 
~O1st E2 ; S50 HEFB MENORY+2 
O192 C1 S51 DEFB COPY+1 SMEMORY 1 &= BCH+1) 
O19 OS Gi2 DeEFB SUB sTOP 2 UN STACK = BEB], Z2HX#H0RI]-808+1) 
O1LS4 33 B23 DEFB QUIT . 
O195 Coo101 R S54 CALL LITRE SACB-1] STACKED ; 
0193 CUYDOO R 855 CALL CTR2 SRATHER THAN CALCTR, TO PRESERVE (BREG). 
O19B OF 254 DEFR ADL STOP 2 ON CALCULATUR SPACK = BCR], BLB-1], 
o17c ol 257 DEFB EXCH : 
O1vD C2 Sag DErR COPY+2 . $MEMORY 2 := BLS]. 
OLSE o2 85? DEFER LOSE 
O1L?F 35 840  DEFR LOOP 
O1AQ EE S41 DEFB LOV2-§ 
O1AL El B62 DEFR MEMORY+1 ; 
O1A2 O23 843 DEFB SUB 8S = BCO]-BL2) : 
O1A3 33 B44 DEFB QUIT 
O1A4 cy 865 RET 
Gh4 


647 sEND OF CHSV. 


CALC , PAGE 12 


POCKET CALCULATOR. 
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 

868 #EJECT 
RL9 
&70 ABS: SREPLACES THE TOP OF THE CALCULATOR STACK BY ITS ABSOLUTE 
871 + VALUE. 
872. SPRESERVES DEHL 

O1A5 = OSFF- 873 LD'Bs-1 

O1A7 =: 1806 874 JR LNE2. ra 
875 ; es 
876 NEGATE: 3NEGATES THE TOP OF THE CALCULATOR STACK. “ 

&77 $PRESERVES DEHL 

O1A9 cDE002 878 CALL TESTO ; 

o1ac os 879 RET @ $1F ARGUMENT ZERO 

O1AD 0600 830 LD B,0 

O1AF VE #81 LNEZ: LD A, (HL) 

O1B0  A7 e22 AND A 

O1B1 2808 S83 JR Z,LNES s1F NUMBER IS INTEGER. 

O1K3 23 #34 INC HL 
S25 $NOW WE COMPLEMENT (FOR NEGATE) OR RESET (FOR ABS) BIT 7 OF 
Sa4 - $ (HL) ACCURDING AS B = 0 OR -1 

O1b4 78 837 LD A.B 

O1BS E480 ese AND 80H 

O1B7 BG 887. OR (HL) 

O18s 17 S70 RLA 

OLR? 3F B71 CCF 

O1BA oF av RRA 

O1uB = 77 873 LO (HLA 

O1BC 2B a4 DEC HL 

O1BD C9 895 RET 

a7 

OLBE DS 897 LNES! PUSH DE 

O1BF ES Soe PUSH HL 

0100  CDOod0d0 Sys CALL LODE 

o1c3. «EL 900 FOP HL 

o1c4 78 901 LD A.B 

o1cS =-B 902 oR C 

O1ce = 2FO, 903 CPL 

0107) 4F 904 LD C.A 

o1ce, cpoeee 905 CALL STDE.S 

O1cB DA 906 POP DE 

aicc cy 907 RET 
908 ; 
909 SONS SREPLACES THE FLOATING POINT NO (HL) BY ITS SIGN -1,0 OR +1. 
P10 SPRESERVES DIEHL 

Q1cD CDEO02 911 CALL TESTO 

0100 «68 P12 RET C 

‘01D. DS 913 PUSH DE 

0102 110100 g14 LD DE, 1 

O1bS 23 915 INC HL 

O1D6 =CB16 916 RL (HL) 

O1Ds = 2B 917 DEC HL 

O1D9 OF 912 SEC AJA 

O1UA 9 4F 919 LD CA 

O10B  CDOodd 920 CALL SES 

O1DE Dt 921 POP DE 


POCKET CALCULATOR. 


Loc - 
O1DF 


OLEO 
O1E3 
O1ES 


O1E7 
O1EA 
O1EB 


O20E 
O2Z0F . 
O211 
O213 
0214 
O215 
. OZ16 
O217 
O219 
021B 


o210 
O21F 
Oz21 


Oz24 


O226 
227 
OZ2A. 


O22 


OBJ CUDE M STMT 


Cc? 


cpoao000 x 
ED73 
1804 


cnd000 =X 
OA 
C30000 xX 


im alelelele) 
CDOA02 


210000 
ES 
cs 
Cc? 


=< ADx 


3c 


cs 
G 
O100FF 
CL9964 
C1 

cy 
2ABCSC 
23 

7E" 
FEQ2 
202 


23 


. 23 


23 
78 
CB7F 
2826 
E606 


231B 
D404 
FA3302 R 
BEG 


‘TE 


FA4102 =R 
1S1B 
7E 


922 
923 
924 
925 
926 
927 
923 
929 
930 
931 
932 
$33 
934 


CALC 
SOURCE STATEMENT 


IN& 


PEEK? 
LPK2: 


USR: 


USRRETs 


CKUSARS: 


CK78 


CKés 


RET 


CALL FIX_U 
IN A. (C) 
JR LPK2 


CALL FIX_U 
LU A, (BC) 
JP STK_A 


CALL FIX_U 
CALL CKUSARS 
LD HL»USRRET 
PUSH HL 

LD HL,STK_BC 
PUSH HL 

PUSH BC 

RET 


POP AF 


INC A 


RET Z 
PUSH BC 
LO BC, OFFOOH 


CALL BANK-ENABLE 


POP. BC 
RET 


PAGE 13 
ASM 5.9 


81S USER AUDRESS IN AROS? 

SRETURN TO THIS ROUTINE fO BANK 
SAKOS OUT. 

sSTACK REIURN ADDRESS 


sJUMP TO START OF USR ROUTINE 


300 WE NEEG £O BANK-SWITCH ARUS GUI? 


§NO, SO RETURN. 
SSAVE RETURNED USER VALUE. 
sENABLE HOME BANK. 


SRESTORE RETURNED USER VALUE. 
SAND RETURN. 


LD HL» (SYSCON) sAROS PRESENT? 


JR NZ.NOGO 
INC HL 

INC HL 

INC HL 

LO A,B 

BIT 7,A 

JR Z.»NOGO 
ANU 6H 


JR Z,CK4 
SUB 4 

JP M,CKS 
JR Z,CKS 


LD A, (HL) 
JPM. NOGO 
JK GETARS 
LO A» CHL) 


31S USER ADDRESS ABOVE 32k? 
sIF NOT. THEN IT CAN’T BE IN ARCS. 
sDETERMINE WHICH ARUS CHUNK WE MIGHT BE DEALING 
sWITH. 
sIF CHUNK 4, DEAL WITH IT ACCORDINGLY. 


sDITTO FOR CHUNK 5. 
sAND CHUNK &. 


3GET AROS CHUNK ASSIGNMENTS. 
SNCT A LEGITIMATE AROS CHUNK. 
$A LEGITIMATE AROS CHUNK, 

sGET ARUS CHUNK ASSIGNMENTS. 
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LOC OBJ CODE M.STMT SOURCE STATEMENT ~ ASM 5.9 
022D  CB77 976 BIT 618 . 
O22F 28146 977 UR Z,GETARS © $A LEGISIMATE ARGS CHUNK. 
0231 1806 978 JR NOGO ¢NOT A LEGITIMATE AROS CHUNK. 
O23. 7E 979 «CKSS LO A» (HL) $GET AROS CHUNK ASSIGNMENTS. | 
0234 CB4F 930 BIT SA 
0234 2S0F yB1 UR Z.GETARS 3A LEGITIMATE AROS CHUNK. F 
O233 1907 982 JR NOGO - $NOT A LEGITIMATE AROS CHUNK. . 
O2tQ TE 983 oka: LD A» (HL) SGET AROS CHUNK ASSIGNMENTS. r 
O23B CHG7 984 BIT 4,0 
230 2808 . 35 UR: Z,+GE ARS $A LEGITIMAIE ARGS CHUNK. 
O23F 1800 - 986 JR NOGO SNOT A LEGITIMATE ARUS CHUNK. 
V37 
02414 El | 9ea NOGOs: POP HL SSAVE RETURN ADDRESS. 
0242 ZEFF gap . LO A, OFFH SENABLE NO ARUS CHUNKS. 
0244 «=FS 990 PUSH AF 
0245 ES era PUSH HL ae SRESTORE RETURN, 
0246 CP? _ 9o2 RET 
; 993 . 
Oz47 «EL 994 GETARS« POP HL $SAVE RETURN. 
024g «FS O75 PUSH AF TSAVE AROS CHUNK ASSIGNMENT. 
0249 ES | 996 * PUSH HL SRESTORE REVURN. 
oZ4A CS 97 . PUSH BC - SAND USER ADDRESS. 
O24B  4F 9983 LOCA SENABLE AROS CHUNKS. 
oz4c = 0400 y9? LD BO 
O24E cCn9?64 1000 CALL BANK ENABLE 
o251 Cl 1001 PoP BC ° SRESTORE USER AULIRESS. 
0252. Ce 1002 RET : 
; 1003 USRS: $USR WITH STRING AKGUMENT 
1004 SRESULT IS THE ADDRESS CF THE 1ST SYTE UF THE BIT PATTERN FOR 
1005 3 @ USER-DEFINEU GRAPHIC SPECIFIED BY THE STRING ARGUMENT. 
* 1006 STHE ARGUMENT MUST BE A SINGLE CHARACTER, & IT MUST BE EITHER 
1007 3 A USER-DEFINED GRAPHIC GOR THE CORRESPONDING LETTER (UPPER 
1008 ; OR LOWER CASE); ABORTS ERROR A OTHERWISE. 
0253 cpoodcdo Xx 1009 CALL POPSTR 
0254 OB 1010 DEC BC 
0257.78" 1011 LD A.B 
ozss BI 1012 oR Cc 
0259 2023 1013 JR NZ»ERRA 31F LENGTH. <> 1 
O25B 1A 1014 LD A, (DE) $A == CHARACTER 
o25c chaooo xX 1015 CALL ALPHA? 2 
O25F 3809 1014 JR CLUSS tIF LETTER 
0261 L&zo 1017 SUB 90H 
0243 3a? 1018 JR C.ERRA s1F < USER-DEFINED GRAPHICS 
0265 FE1S 1019 . CP TOKO-9OH 
‘0267-2015 1020 JR NC, ERRA SIF > USER-DEFINED GRAPHICS 
0267 3c 1021 INC A 
o2z6A 3D 1022 LUSS: LEC A 
O26B 7 1023 ADD AA 
O26C 87 1024 ADD ALA 
O26D 87 1025 ADD ALA $A t= 8 # PUSN OF LETTER IN ALPHABET (“A’ = O1H) 
O26E  FEAS 1026 CP Sie (TOKO-POH) : 
0270 300C 1027 JR NC, ERRA SIF LETTER WITH NO CORRESFONUING USER-DEFINED GRAPHIC 
0272 ED4B7HSC 1026 Lo BC, (UIE) 


° 0276 G1. 1029 ADL AL sNOW MAKE BC +282 A 


POCKET CALCULATOR, CALC ; ; PAGE 15 


1, 400 , OBI, GODR M STMT SGURCE STATEMENT ; ASM 5.9 - 
et Pay ee ee wed yee . ee : 

0277 | 4F - 1030 LDA 

,, 0278. , ,ROO01 1031 UR NC, LUSS - 

027A OA 1032 INC BO Se Se 

_ 02768 ,G30000 xX 1033 LUSS: JP STK_BC 

Cnn 1024 1 t 
OZ7E ,,,, 1035 ERRA: RST ERROR tERROR Ay INVALID ARGUMENT 


O27F 09 1036 VEFE 9 


an 
POCKET 
Loc 


o2e0 
o2et 
0282 
a233 
0284 
O285 
0284 
0287 
OZES . 
O28? 
O28A 
O23B 
O28C 
O2zsu 
O2SE 
O23F 


290 
0293 
0294 
O296 


0298 
0298 


O29D 
O29E 
O29F 
a2A0 

ZAL 


OZA2 
O2A3 
OZAS 
O2ZAS 


eed obey 


CALCULATOR. | CALC PAGE 16 
OBJ CODE M SIMT SOURCE STATEMENT / ASM 5.9 
} 1037 #EUJECT 
‘ 1038 ; 
‘ : 1039 TESTO: $SETS CARRY IF NUMBER (HL) IS 0 
1040 SPRESERVES ASCLUIEHL 
E5 1041: PUSH HL . “ a 
cs 1042 PUSH BC ‘ 
47 1043 LD BA 7 
7E 1044 LD A, (HL) ° : y 
23 1045 INC HL 
BS 1044 OR (HL) 
23 1047 INC HL 
BG 1048 oR (HL) 
23 1049 INC HL 
B4 1080 ‘OR (HL) 
73 1051 LD A.B 
cl 1052 POP ac 
El 1053 POP HL 
co 1054 RET NZ sIF NUMBER NOT ZERO; CARRY CLEAR 
37 1035 SCF : 
ce 1056 RET 
1057 
105¢ PLUS? SREPLACES THE NUMBER X AT (HL) ; 
1059 $s BY THE BOOLEAN VALUE X > 0 (TRUE = 1, FALSE = 0). . 
1060 SPRESERVES DEHL 
1061 SCPRESERVES 80] 
CD8002 —R 1062 CALL TESTO 
pe 1043 RET C 31F NUMBER IS ZERO, UK. 
3EFF 1044: LD A.-1 
BOS 1065 JR LMNS1 
1064 
1067 NOT: 
1943 ZEROD?: SREPLACES THE NUMBER X AT (HL) 
1049 $s BY THE BOULEAN VALUE X = 0. 
1070 3PRESERVES DEHL 
1071 . $CPRESERVES BC] 
cosoo2 R 1072 CALL TESTO 
1905 1073 JR STBOOL 
1074 
1075 MINUS*?:s TREPLACE'S THE NUMBER X AT (HL) 
1076 + SY THE BOCLEAN VALUE xX < 0, 
1077 3PRESERVES DHL 
1073 SCPRESERVES BC] 
AF 1079 XK A sA 8= 0, 
23 1080 LMNSi: INC HL 
AE 1081 xaR (HL) 
2B 1082 DEC HL 
07 1083 RLCA 
1084 STBOOLS: SHERE TO REPLACE THE NUMBER AT (HL) WITH O (FALSE) IF CARRY 
1085 + CLEAR, 1 (TRUE) IF SET 
1036 'PRESERVES BCDEHL 
ES 1087 FUSH HL 
3E00 1088 LO AO 
77 1089 LO (HLA 
23 1070 ING HL 


POCKE 


Loc 


O2A7 
O2A8 
O2AY 
O2AA 
OZ2AB 
o2AC 
ozAn 
O2AE 
O2AF 
O2HQ 
O2B1 


O2B2 
O2B3 
O2B46 


ie 


O2B2 © 


0283 
Q2B9 


O2BB- 
O2RC- 


O2BF 
o2zco 
O201 
O2C02 


o2t4 
o2cts 
O208 
oO2c9 
O2ZCA 
QO2CB 
o2cc 
o2cn 
O2CE 
O2CF 
o2no 
ozD1 


CALCULATOR, vALC PAGE 17 ; 
OB) CODE M STMT SOURCE STATEMENT . ASM 5.9 
77 1091 LD (HL).A 
23 1092 INC HL 
17 1093 RLA 3A t= 1 IF CARRY SET 
77 1094 LD (HL):A 
1F 1095 RRA 1A t= 0 
2 1096 INC HL . : 
77 1097 LD (HL).A . 
23 1098 INC HL 
ae 1099 LD (HL).A ; af 
E1 1100 POP HL 
ce 1101 RET 
1102 | 
1103 ‘ORs 3(HL) t= (HL) OR (LE) 
1104 3X UR Y = IF Y THEN 1 GLSE X FI 
1105 ; (“X UNLESS Y - IN WHICH CASE 1°). 
1106 sY IS CUNSIDERED 1RUE IF IT IS NON-ZERO. 
1107 SSMASHES AKC. 
EB 1103 EX DE,HL 
cpso0o2 R 1109 CALL TESTO 
EB 1110 EX DE.HL 
ps i111 RET C ‘SIF RIGHT OPERAND IS FALSE 
a7 1112 SCF 
18E7 1113 Jk STBOOL, 
1114 ’ ; 
1115 NOAND: SNUMERICAL ANU. (HL) #= (HL) AND (DE) 
1114 3X AND Y = IF Y THEN X ELSE 0 FI 
1117 : (*X IF Y - ELSE 0”). 
1118 ;SMASHES ABC 
Ey 1119 EX DE.HL 
cpso0o2 sR 1120 CALL TESTO 
EB 1121 EX DEsHL 
ia) 1122 RET NC $IF RIGHT OPERAND IS TRUE 
A? 1123 AND A 
180E 1124 JR STBOOL 3WITH CARKY CLEAR 
’ 1125 ; 
: 1126 STGAND: SSTKING AND. (HL) t= (HL) AND (DE) WHERE 
1127 + X# AND Y = IF Y THEN X® ELSE "" FI, 
1128 : SMASHES A, ASSUMES UE = HL+5. 
EB 11:29 EX DE, HL . 
cpsooz = R 1130 CALL TESTO 
EB 111 EX DE,HL 
DO 1132 RET NC: SIF (DE) TRUE 
ns 1133 PUSH DE 
1B 1134 DEC DE 
AF 1135 XOR A . 
12 1136 LD (UE).A 
18 1137 DEC DE 
12 1128 LO (DE),A 
rept 1139 POP DE 
ce 1140 Ret 
1141 
1142 CMPRSN: SPERFURMS THE NUMERICAL OR STRING COMPARISON OPERATION 
1143 3 C=, >m,0>,>,¢ OR = IN (BREG) & BON THE TOP TWO UN THE 
1144 ‘$ CALCULATOR STACK (AFTER STKDWN), LEAVING A RESULT 0 


e- 


POCKET CALCULATOR. 


‘ Loc 


‘O2DA 
O20B 
o2DD 
O2DE 
O20F 
OLE2 
O2ZE3 
OLE 
OOZES 
OZE7 
OZEY 
OZEA 
O2EB 
OZEE 


OZFO 
O2ZF 1 


o2t2 


Q2F5 
‘OZFS 
O2+7 
O2FA 


LCN63: 


CALC ; PAGE i8 


‘OBJ COLE M STMT SQURCE STATEMENT ASM 5.9 : . 
61145 3 (FALSE) OR 1 (TRUE), 
111446 + NUMERICAL COMPARISONS SMASH ABCA‘F“B‘C’D’E’. 
Ve ‘1147 ; $ STRING COMPARISONS SMASH AEC 
738 1148 "LO ALB: 
111603 1149 ' SUB aD 
CHS7 2150 BIT 2, , 
2001 ‘2151 UR NZ. une . 
3D ‘1152 DEC A 
1153 LCN2: 3THE OPERATION IS NOW CODED IN A AS FOLLOWS:— 7 
i 1154 3 0,1,2 FOR NUMERICAL <=, >=, <> 
‘1155 $ 4.5.6 ! FOR NUMERICAL >, <. = 
12156 3 9,10 FOR STRING <=, >=, <> 
1157 ° $ 12,13,14 FOR STKING >, <, = 
1158 $ WE REQUCE THESE TO THE COMPARISONS = & >: 
'11S9 3 IF A IS GDD (BIT O SET) WE EXCHANGE THE OPERANLIS. 
‘1140 3 IF BIT 3 IS SET WE USE SIRING TESTS. 
1161 ; IF BIT 1 IS SET WE TEST =3 OTHERWISE > 
rh ‘1162 ae | IF BIT 2 15 OFF WE NOT THE ANSWER. 
ie) a ' 14163 RRCA! ; 
1 9008 11164 ‘YR NC) LCN sFOR <=, <3, > & = 
FS 1145 FUSH AF 
E5 "11466 PUSH HL 
'CD7701 = R' 1147 CALL EXCH 
Di 1148 POP DE 
EB Ligg cer EX DE,HL'' ° 
F1 41170 POP AF 
CB57 '4471 LONS: BIT 2.A ' 
2007 14172 JR NZ; LCN6 sFOR STRING COMPARISONS 
tor ‘1173 ‘RREA | ? 
Cee ' 19174 ' PUSH’ AF ' 
'cpa00o0 =X! 1175 CALL SUB 
nyess ‘1176 .' dR LON? ee ae 
‘1177 ot ; . 
Vote ‘1178 LON6: ' $HERE FOR'STRING COMPARISCINS. WRITE S & T FOR LEFT OPND (2ND 
‘4479 ° 3 FROM TOP) & RIGHT OPND (TUP UF SrAcK), 
, '418Q both $A = MODIFIED CODE, ROTATED RIGHT ONCE 
OF )1181 RCA ‘' $C 1O fEST =, NO Tao TEST >. 
'epooo00— X' fies ‘CALL PCPSTR 
‘psf Naa PUSH DE! 
'cs 4185 ‘PUSH BC 
'epodog —s X!' 1186 ‘CALL POPSTR 
‘El 14187 POP HL 
he '41433 LCN62: | SHERE BC & HL = REMAINING LENGTHS OF $ & T, DE & (SP) -> 
i M1189 $ CURRENT CHARACTERS IN S$ & T. 
\ ‘4190 $(SP+2) = MODIFIED CODE, ROVATED RIGHI TWICE, & FLAGS C To TEST 
i ‘1191 ‘ 3 FOR =, 
'7C 14192 ‘LD ADH 
BS ‘1193 ORL 
‘ES ‘1194 ‘EX (SP).HL sHL t-> T CHAR, (SP) ¢= LENGTH OF T LEFT 
73 ‘4195 LO A.B 
2008 4296 °°" OO OR NZ LON) 8IF STILL SOME T LEFT 
Bt ‘1197 OR Cc 
Cl 4196 FOP BC 
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‘ROC «6B CODE M STMT SOURCE STATEMEN? ASM 5.9 
O303 2804 ‘2499 JR Zs L0N64 S$1F RUN OUT OF BOTH S & T 
0305 «Fi '1200 POP AF ! ' SEITHER S'LEF?T BUT NO T. OR S CHAR > T CHAR 
0306 3F ‘P2014 Ccr 3TRUE FOR' >, FALSE FOR =. 
OBO7: 1816 '1202 JR LONS 
ey tfes feos 11203 1 ' : 
O309 | PL. 11204 LCN648 POP AF - §RUN GUT GF S$ & T 
OS30A 1813 1205 JR LCNS' ;TRUE FOR =, FALSE FOR >. 
oo 11206 mi . 
oz0c -. Bl 11207 'LONéES: OR C i a 
o30D 260D - 11208 JR Z,LON78 | 3I1F RUN OUT OF S BUT NOT T: FALSE 
O30F 1A 11209 LD A, (DE) - 
OF10 946 14210 Suu CHL) ' ' ' 
O311. 38a ‘4211 . WR CsLCN7& | ‘3IF'S CHAR < T CHAR: FALSE 
0213 20ED 11212 JR ONZ,LON6S |‘: $IF S CHAR > 1 CHAR: TRUE FOR >, FALSE FOR =. 
0215 OB 4213 DEC BC " Pog dete 
0316 13 14214 INC DE hor Pitas 
O317 9 23 4215 tNc HL ces oa ig 
o313 ES ‘1214 EX (SP),HL- ‘ 
‘OBL? ORB. 11217 REC HL 
Os1A EDF 1218 ‘UR LONG? 
mp ay ‘1219 ae Os, 
O81C 1 CL. '1220 LCN78: POP BC 
‘OS1D ORL ot ot 14221 ‘PUP AF © 
OS1E VA7 14222 AND A 
toe 11223 LCNS: ' $HERE TO STACK O (FALSE) IF NC, 1 (TRUE) IF C 
O31F FS ‘1V2n4 PUSH AR 
O320 — 1225: RET CALCTR 
0321 Ad ‘1224 DEFa CONST+O 30 
0322 38 1227 _ DBEFB QUIT 
0323 Fil 1228 LCN: FUP AF 
0324 FS 1229? PUSH AF. 
0325 Dncvse2° R 1230 CALL C, ZERU? sFOR <>, = 
0329 Fi 1231 Por AF 
ose? 6 FS 1232 FUSH AF 
Oo326 D47002 R 1235 CALL NC. PLUS? 
o32n Ft 1234 FUP AF 
O32E OF 1235 RRA 
O32 nasso2 = R.1235 CALL NC.»NOT sFUR <=, >=,. <> 
0332 CY? 1237 RET 
1238 


1239 sEND OF CMPRSN. 


POCKET CALCULATOR. 


LOC 


0333 
0334 
0337 
0332 
O23B 
O33C 
O33D 
O33E 
O33F 
0240 
O341 
O242 
0243 
Q346 
O347 
0243 
0349 
O34A 
o34Cc 
O34E 
O24F 
O350 
OSS1 


O352 


0354 


0354. 


O259 
O35iC 
OSSD 
O35E 

35F 


0340 
034623 
0365 
0267 
0268 
O36 
O26C 
O34) 
OSE 
Q371 
O372 


0373 
0274 


Coh0O000 


FS 
010100 


Fi 
12 
CLO000 
EB 
tC? 


OA 


1240 
1241 
1242 
1243 
1244 
1245 
1244 
1247 
1245 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1254 
1257 
125% 
1259 
12460 
1241 
1242 
1263 
1264 
1265 
1246 
12467 
1248 
1269 
1270 
1271 
1272 
1274 
1275 
1274 
1277 
1278 
1279 
12ZE0 
1221 
1282 
1233 
1284 
1285 
1239 

125 

1283 
1259 
1270 
1271 
1292 
1293 


1273 


CALC 
CRI CODE M STMT SOURCE STATEMENT 


EJECT 


CONCATE 


PAGE 20 
ASM 5.9 


sREPLACES TOP TWO STRINGS ON CALCIR STACK BY THEIR CONCAT-— 


3 ENATION, WHICH IS WRI'TIEN IN A SPACE CREATED BY COPYUP, 
§ SMASHES ABCHL. ; 


CALL POPSIR 
PUSH DE - 
FUSH BC 
CALL POPSTR 
POP HL 

PUSH HL 
PUSH DE 
PUSH BC 

ADD HL, BC 
LD BH 

LO C.L 

R351 COPYUP 
CALL PSHSTR 


"JR Z+LCT2 


LCT2: 


STKPTR: 


CHR: 


LCHR@: 


LDIR 

For BC 

POP HL, 
LO A»B 

OR C 

AR 2, STKPTR 
LOIR 


DE 8-> 
LD HL» (STKNXT) 
LD DE,-NUSIZE ° 
PUSH HL 
AUD HL, DE 
POF DE 
RET 


$s CHRS. 
CALL FP2A 
JR OC, LCHRe 
JR NZ,LCHRS 
PUSH AF 


“LD BC, 1 


RST COPYUP 
FUP AF 

LO (DE).A 
CALL PSHSTR 
EX DE. HL 
RET . 


RST ERROR 
DErE 10 


SIF 1ST STRING EMPTY 


SIF 2NO STRING EMPTY 


sHL &-> TOR OF CALCTR STACK C(STKNXT)-NOSI2E)» 
MEXT FREE PLACE ((STKNXT)). 


8IF OPERAND TOO BIG 
sIF OPERAND —VE 


SERROR B, INTEGER OUT OF RANGE 


POCKET CALCULATOR. CALC PAGE 21. 


LOC OBJ CUDE M STMT SOURCE STATEMENT ASM 5.9 
1294 
1295 VAL: VAL) VALS 
1296 $B = CALCTR INSTRUCTIUN CULE : 
0375 2ASDSC . 1297 LD HL» (CHUADD) 
0378 «ES 1299 PUSH HL 
0379 1297 ASSERT VALS.ULT. VAL 
0379 «78 _ 1300 LD A.B a 
037A C4E3 1301 ALU A,-VAL a 
0370 OF: 13020 SEC A.A 7A t= -1 FUR VAL, 0 FOR VALS , 
o37u. FS 1303 PUSH AF 
O37E CDOCOO xX 1304 — CALL POPSIR. 
o381 0S 1205 PUSH. DE 
0282 03 1304 INC BC 
0383 1307 RST COPYUP 1COPY STRING TO WORK AREA, THEN NL AS TERMINATOR 
0384 «EL 1208 - PUP HL sHL 8-> BEGINNING UF STRING © 
O225 EDS35D5C 1307 | LD (CHADD) »DE 
0389 05 1310 PUSH DE 
028A  ELIBO 1314 LEUIR sNB BC > 0 
osec EB 1312 EX DEyHL 
oz8D 2B 1313 DEC HL 
S8E 3400 1314 LD (HL) > NL 
0390 FDCBOIBE 1315 RES INTPT, (1Y-Y+FLAGS) 
0294 ChOGOO XxX 1316 CALL EXPRN SSYNTAX CHECK ~— CUNVERTS CUNSTANTS 
0297 1317 RST IGN_SP 
0273 FEOD 1318 CP ONL 
029A 2007 1319 JR NZ,LVLS SWHENCE SYNERR, IF STRING LEFT OVER 
o#9C EL 1320 PUP HL tHL t-> START OF EXPRESSIUN 
o29D FL 1321 POP AF 
O29E  FIIAEOL 1322 XOR (1Y-Y+FLAGS) 
O2A1 E640 1323 AND 1.SHL.NO 
O2A3 C20000 xX 1324 LVLSt JP NZ,»SYNERR = $1F WRONG TYPE 
0386  225D5C 1325 . LD (CHADD), HL sBACK TO BEGINNING 
O2A9 FDCKOIFE 1226 SET INTPT, (1Y-Y+FLAGS) 
OZAD Choede xX 1327 CALL EXPRN s EVALUATION 
O3HO «EL 1228 POP HL 
O3B1  225D5C. 1829 LD (CHIADD),HL sRESTORED TO ORIGINAL VALUE 
O3B4 = 16A0 1230 JR STEPTR 
1231 
1332 STRt sSTRS : 
1333 SUSES CHANNEL R TO WRITE THE CHARS AT (K_CUR) 
* 1334 ; INSTEAD UF TO THE SCREEN. 
03B4 010100 1335 LD BC. 1 SWE NUW SEPARATE (K-CUR) FRUM (STKBOT) (SEEMS 
O89 326 RST COPYUP s  - UNNECESSARILY ELABORATE). 
O3BA = 225B5C 1337 LD (KCUR)»HL 
O3BD ES 1238 PUSH HL 
O3KE = 2AS515C 1339 LB HL» (CURCHL) 
O31 = ES 1340 PUSH HL 
o302 3EFF 1241 LD A:HID_R 
o304 CNOE0O xX 1342 CALL SELECT 
O3C7 Cneedd xX 1343 CALL OUTPUT 
Osta Et 1244 PUP HL 
O3cB Cpe0edO xX 1345 — CALL SEL-HL 
o3cE DL 1246 PUP DE SE 1-> BEGINNING OF STRING 


O3CF #ASESC 1347 LO HL» (KCURK) 


POCKET CALCULATOR. 


Loc 


oan. 


O33 
o3ns 


O34 


O307 
O3LA 
O3DB 


osnc 
O3UF 
OSE1 
O3E4 


SE? 


OSES 
O3EH 
OSEE 
OSF 1 
OSF3 


Q3F4- 


OBFS 
O3F6 
OSF? 
OSFA 
O2FD 


9400 
0403 
0404 
0405 
0407 
0408 


o40B 
O40E 


OBJ COVE M 


A7 
EDS2 
44 

4D 
cbOO000 
EB 


ce 


cno00e 


Coa0aa 
CDOQDO 
010000 
2003 
oc 


12 


CDO00O0 


73 


C30000 


CbO000 
C20000 


y 


<x 


ax << 


1348 
1349 
1350 
1351 


1252, 


1353 
1354 
1355 
1354 
1357 
1353 
1359 
1360 
1361 
1242 
1343 
1364 
1345 
13446 
1347 
1368 
1369 
1370 
1371 
1372 
1373 
12374 
1375 


- 1378 


1377 
1378 
1279 
1380 
1331 
1382 


CALC 
STMT SOURCE STATEMENT 


C.INKY: 


LCOY8: 


CODE: 


LCDE2: 


LEN: 


AND A 

SBC HL, DE 
LD BH 

LD CL 

CALL PSHSTR 
EX DE) HL 
RET 


CALL FIXU1 
CP 146 
JP NG. ERRB 


LD HL» (CURCHL) 


PUSH HL 
CALL SELECT’ 
CALL INCH 
LO BC.O 

JK NC LCYS 
INC G 

RST COPYUP 
LO (0k).A 
CALL PSHSTR 
POF HL 

CALL SELOHL 
JP SIKPIR 


CALL PUPSTR 
LO A.B 

UR 

WR Z,LCDE2 
LO A, (LIE) 
JP STKLA 


CALL FOPSTR 
JP STKOBC 


§BC &= LENGTH OF STRING 


3 INKEYS# 


SIF STREAM NOT IN RANGE 0 TO 15 


sIF NO CHAR 
sBC s= 1 


TANSWER IS 0 FOR EMPTY STRING 


PUCKET ' calcuLAToR. CALC 


Loc 


0411 
O412 
0413 
0416 
0417 
0413 
O41A 
041B 
o41c 


o41D 
O41E 
O41F 
0420 
O421 


0422, 


0423 
0424 
0425 


0426 
0427 
0423 
0429 
042A 
042B 
0420 
O4Z2E 
O42F 
0430 
O43i 


0432 
0433 


' 0434 


0435 


cB ‘COLE M STMT SQGURCE STATEMENT 


(ol 1863 #EJECT 


FAGE 23 
ASM 5.9 


me 1384 
= 13¢5 LOOP: SDECREMENTS (BREG). IF THE RESULT IS ZERO, THEN SKIPS OVER 

1356 $ THE FOLLOWING INSIRUCTICN; GIHERWISE, READS fHE FOLLUWING 
1337 Z s INSTRUCTION AS AN S-BIT SIGNED INTEGER & “JUMPS THAT NUMBER 
1383 $s OF INSTRUCTIONS RELATIVE (O THE BYIE CONTAIMING THE INT- 
133? ; 3 EGER. (THIS IS JUST LIKE ZILOG DIN2.) ; 

u9 1370 EXX : 

ES 1371 PUSH HL 77 

21475C 1392 ‘ LD. HL.» BREG aoe 

35 1393 BEC CHL) sc? 

Et 1394 POP HL 37° 

2004 1295 JR NZ» JUMP 2 $°° $IF (BREG) NOT= 0 

23 1396 : INC HL 3°? 

Db? 1397 EXX | 

Cy 1398 RET 

: 1399 : : 
1400 JUMP: sREADS THE FOLLOWING INSTRUCTION AS AN S-BIT SIGNED INTEGER 
' 1401 3 & JUMPS THAT NUMBER CF INSTRUCTIONS (LIKE ZILOG JR). 
1402 SPRESERVES DEHL, SMASHES D°E’, ADJUSTS H“L“ AS CALCTR FPROGKAM 
1403. $s CUUNTER . 
: 1404 sCPRESERVES BC] 

Dy 1405 " EXX 

SE 1406 JUMPL® LD E, (HL) 3°° 

7B 1407 LD AE ad 

17 1408 RLA . 3°" 

oF 1409 SBC ALA 3°? 

37 1410 LU DA ad 

19 1411 ADD HL, DE. aad 

by 1412 EXX 

Cc? , 1413 RET 
1414 , 
1415) IFJUMP: SREMOVES THE TOP OF THE CALCULATOR STACK. IF ITS SRD BYTE IS 
1414 $ NON-ZERG tHEN READS THE FOLLOWING INSTRUCTIUN AS AN 
1417 $ 8-BIT SIGNED INTEGER & JUMPS THAT NUMBER OF INSTRUCTIONSS 

, 1413 3 OTHERWISE SKIPS OVER THE FOLLOWING INSTRUCTION, 

13 1419 . . INC DE 

13 ; 1420 INC DE , 

1A 1421 LD A, (DE) 

1B 1422 DEC we 

1B 1423 DEC Dk 

A7 1424 AND A 

20EF 1425 JK NZ. JUMP 

p19 1426 EXX 

23 1427 ‘INC HL 3°° $SKIP THE NEXT INSTRUCTION BYTE (OFFSET). 

Ly 1423 EXX 

cp 1429 RET 
1430 
1431 QUIT: SRETUKNS CONTROL, FRUM THE CALCULATOK TO THE 260 
1432 . $ PRESERVES BUCDEHL, HL’ t= 2ND FRUM TOP UF M/C STACK, 

Fi 1433 POP AF 

np? 1434 EXX 

E3 1435 EX (SP).HL sSETS NEXT INSTRUCTION AS RETURN ADDRESS 

ou? 14:26 EXX SHLY RESTORED 10 ITS VALUE UN ENTRY TO CALCIR 


‘POCKET CALCULATOR. CALC PAGE 24 
Loc OBJ CODE M STMT SQURCE STATEMENT : ASM 5.9 
0436 «C9 '1437 RET 
1438 
1429 $sEND OF CALCTR 
1440 
1441 . END 
X\X\ , 
a | 1 
‘tf 
* { ' 
' cea | { 
cA oe 
setgee vi f 
' a ' { 
\ 
. ett ' ' 
feo ‘ p 
Hl 1‘ 
i} ' 1 
‘gtte te Vor 
nya ! a | eng i 1 
sat 1 te fc 
‘ t, \ 
' ‘ ' 
( Tey 
ro \ o4 
' t, 
(ony 
' 1 : tor 
' ! tt 
! ay (ae 
ter a 
' ; ty 1? 
ot ' 
, | ' 
ryt {t- ti 
ae [3 
° t t 


Loc. 


out 


NATHS, RUNCTIONS:.) FUNCTS PAGE 1. 
OB! COLE, M, STMT. SQURCE STATEMENT . ASM 5.9 
| 1 #HEADING MATHS FUNCTIONS 
iat 
421 #LiSTON .. , ‘ 
422 . 
423 | GLOBAL INT, EXP. LN, S1N, ANGLE, COS, TAN, ROUT, TO_THE»INTDIV: ASN, ACS: AIN 
4z4 : 
425 EXTERNAL STK..A,FP2A, STK_BC s INOUT : Pe 
42 EXtERNAL FLOAT . SUNS 
. 42 


0000 
Lelered | 
0002 
adds 
Q004 
gods 
0046 
0007 
0008 
009 
O00AR 
OOOR 
oo00c 
(aTereyh) 
QO0E 


428 INTUIV: 


SREPLACES THE TOP TWO GN THE CALCULAIUR STACK, X & Y. BY 


AZo 3 X MOD Y & THE INTEGER QUOTIENT INT(X/Y). 
430 + ON RETURN DE & HL ARE CALCULATOR STACK POINTERS. 
431 3 PRESERVES B & HL’. 
432 3 SMASHES ACA‘F‘E“C’D-E’. 
433 USES CALCULATOR MEMORY 0+ MAXIMUM STACK DEPTH = 3. 
a RST CALCTR +X+Y 
co 435 DEFB COPY+0 iMEMORY O t= Y 
02 434 DEFB LOSE 3X 
a1 437 DEFB DUP XX 
2) 433 DEFY MEMORY+O = $X.X+¥ 
05 439 OKFB DIV aX2X7Y 
27: 440 DEFB INT $X, INT(X/Y) 
EO 44at DEFB MEMORY+O — $X,INT(X/Y)+Y 
o1 442 DEFE EXCH $X+¥,INI(X/Y) 
co 443 OEFB COPY+0 sMEMORY @ t= INT(X/Y) 
04 444 DEF TIMES $X,Y#INT(X/Y) 
03 445 DEKE SUB +X MUD Y 
EO «446 DEFY MEMORY+0 3X MOL’ Y,INT(X/Y) 
32° 447 DEFB QUIET 
ce 44s RET 


o, MATHS, FUNCTIONS 
1 LOC ,. OBJ. COLUE M STMT SOURCE STATEMENT 


OOOF 
0010 
oo11 
0012 
o013 
OLE 
0015 
OD16 


OO17 


a023 


449 
450 
451 
452 
453 
454 


455 


45s 


. 457 


453 


1 459 


460 


| Abt 


462 
463 
464 


465 
466 


4&7 
443 


4&9 


A7O 
Avi 
472 
473 
474 
473 
476 
477 
473 
479 
430 
431 
432 


PAGE 2 


' FUNCTS 
ASM 5.9 
' #ESECT 
INT? | $REPLACES THE TOP OF THE CALCULATOR STACK BY I'S INTEGER 
s PART. INT(X) <= X < INT(X)+1, SQ (E.G.) INM(-2.5) = —3. 
3 ON RETURN, HL -> TOP OF CALCULATOR STACK & Dk -> NEXT FREE 
3 SPACE. 
' ’ 3 B & HL’ ARE PRESERVED. a" 
\ § SMASHES ACA’F“B*C“D“E*. 
3 USES MEMORY 0; MAXIMUM SIACK DEPTH = 2. . 
merry ; 3 LET X= THE ORIGINAL TOP CF THE STACK. 
RS? CALCTR ' 
DEFB DUP 
DEFB MINUS? ! 
LEFB IF JUMP sIF xX < 0 
DEFB LIT2~% 
DEFB) TRUNC 
DEFB QUIT ° 
RET 
LIT2: LErB DUP 
' DEFB TRUNC 
LEFE  COPY+0 sMEMURY O f= PRUNC(X) 
DEFB SUB 
/ DEFER MEMURY+0 
DEFER EXCH 
DEFB ZERO? 
- DEFB IFJUMP 3IF X IS AN INTEGER (< 0). 
HEFB LIT4-$ 
DEFB CONST+1 $1 
Hers SUB 3 TRUNC(X)—1 
LIT4s MEFB GHWT 
RET 
sEND OF INT. 


* 


MATHS FUNC TIONS FUNC IS PAGE 3 


Loc Ob CODE M STMT SOURCE STATEMENT ASM 5.9 
483 #EJECT . : 
434 ‘ 
435 EXP: SREPLACES THE TOP OF THE CALCULATOR STACK, X, BY EXP(X). 
486 $ ON RESURN, HL & DE ARE CALCULATOR STACK POINTERS. 
i . 437 : 3 PRESERVES HL’, SMASHES ABCA’F’R’C’D-E-. 
4ee = 3 USES MEMORIES O — 33 MAXIMUM STACK DEPTH = 4, 
4ap $ TAKES 60 MS (ELY TIME), 45 MS (Zx8O TIME). re 
42a ‘ . 
41 SLET X/LN 2 HAVE INTEGER & FRACTIONAL PAKTS N & OD. THEN 
4g2 : 3 EXP X = EXP (N+tD)#LN 2 = EXP (DLN 2) # HN, 
0024 4o3 RST CALCTR 
0025 3D 494 DEFB FLOAT 
0024 34 495 . DEFB LITERAL $1/LN 2 = .BSAA 3H29 # 2 
0027 Fi - Avs DEFB OCOH+49 
0023. 38 497 DEFB SSH 
0029 ° AASB 493 ; OEFW OAAH+3BH#¥256 : 
002B 2? 499 ‘ DEFR 29H i 
oo2c 04 S00 fEFB TIMES F : 
oo2zD 31 C«; Sol DEFB DUF 
OOZE 27 S02 OEFE INT . 
QO2F C3 503 LVEFB COPY+3 sMEMORY 3 := NL 
(etacre) 03 j sa4 ms OEFB SUB sfOP OF STACK = DO. 
oOos1 31° S08 ‘ PEFR DUP . ; 
0032 OF S04 DEF ALD ‘ 
0033 Al 507 DEFB CONST+1 
0034 Os Sag DEFB SU STOP OF STACK t= 2#D-1 FOK CHEBYSHEV ROUTINE. 
0035 ats] Soy DErsB CHSV4+9 é , : : ; 
: S10 $3 . DEFB 14 sACS] = ,80O % 2He-34 (REMOVED) 
: ; Sit 3§ DEFB oO . 
0036 13 S12 DEFB 19 3$AC71] = .B6 % QHZ? 
0037 34 513 DEFB 34H 
o0s3g S93 : 514 : DEFB 40H+24 $ACG) = E5466 % 2HH-24 
O039 6566 ‘ $15 LIEFW &SH+G6H#256 | 
003B eD S16 DEFR SOH+23 - $sgACS] = .FSé5 40 H DHH-19 
e03c 7865 - S17 , DEW 7SH+GSHEZS4 
OO3E 40 S51 DEF 40H 
aos Az’ S19 DEFER SOH+34 3AL4] = E022 C9 % 2HH-14 
0040 6032 ~—. 520 LDEFW GOH+32H#254 , 
ON42 co S21 QEFB OCYH ‘ 
0043 E7 S22 DEFER OCOH+39 $AC3] = .ALF7 AF2Z4 # 2HH-9? 
0044 21 S23 DEFB 21H ‘ 
0045 F7 S24 DEFB OF7H 
0048 AF eee S25 DEFER OAFH ; at, 
0047 24 S26 ; DEFK 24H ; 
0048 EB S27 - PEFR OCOH+43 $AC2] = .AFBO BO1L4 # ZHH-S 
004? 2- S28 DEFER 2FH 
a0440 BO 529 , DEFB OOH 
OO4B BO S30 DEFB OBOH 
oo04e 14 S3t HEFB 14H = 
oo4u «EE 532 DEFB OCOH+446 $AC1] = .FEBB 9459 # 244-2 
OO4E JE iol B88 oot DEB 7EH 
OO4AF FB 5:34 ; DEFER OBBH 
0050 97453 535 CEFW F4H+SeHe254& 


0052 OF iL . S36 sea DEFB OCOH+49 ~~ $AL0] = .BA7E FECF # 2 


MATHS FUNC IONS FUNCTS PAGE 4 


Loc - OY ' CODE M STMT SOURCE STATEMENT é ASM 5.9 

oos3 BA7E 337  ' DEFW SAH+7EH#256 

0055 FS S23 DEFK OFSH : 

00R% CF 339 DEFB OCKH © 
540 $TOP OF STACK t= EXPCU#LN 2) CIN RANGE 1 TO 2). 

O037 ES S41 DEFB MEMOKY+3 3N 

0053 33 542 DEF QUIT 

O05? CbhO000 X 543 CALL FPZA SA t= N 

0o0scC 2007 544° JK NZ,LEPS sIF N< O 

OOSsE 2803 545 JR C,ERRS sIF N QVERFLOWS 

0040 Sh S46 ADO As CHL) : 

ao0é1 3009 547 JR NC, LEP34 SUNLESS OVERFLUW 

0063 S43 ERK6: - RST ERROR SERROR 6 ARITHMETIC OVERFLOW 

00464 as S49 REFB S 
S50 

0065 3307 S51 LEP3s JR C,LEP4 sUNDERFLOW 

0067 9% . S82 SUB (HL) 

00463 32004 553 Jk NC» LEP4S 31F N o= CHL) 

QO4A ED44 S54 : NEG : 

0060 77 S55 LEP34: LO (HL)+A 

o0én Cc? Soh RET 

. S57 

-OO6E Soo LEP4: RST CALCTR SELSE UNDERFLOW 

OOSF 02 S59 - DEFB LOSE SCALCULATED MANTISSA 

0070 AO 540 DEFB CONST+0 39 

007 1 38 S61 DEFER QUIT 

O0O72 Cc? 562 RET 
543 


544 $ENU OF EXP. 


MATHS FUNCTIONS 


FUNCTS PAGE 5 
Loc: OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 - . 
S65 #EJECT 
564 
S67 LN SREPLACES THE TOP, U, OF THE CALCULATOR STACK BY ITS NATURAL 
SS 3 LOGARITHM. ; 
BY 3 ON RETURN DE & HL ARE CALCULATOR STACK POINTERS. 
570 $ PRESERVES HI.”, SNASHES ABCA‘F‘B‘C’D’E’. 
571 $ USES CALCULATOR MEMORIES Os MAXIMUM STACK LEPTH = 5. ° 
572 3 TAKES @ MS (ELY TIME), 63 MS (4x80 TIME), : 
0073 573 RST CALCTR , 
0074 «3D 874 DEFB FLOAT 
007531 575 DEFE DUP 
0076 37 574 DERB PLUS? 
0077 00 577 DEFB IF.IUMP TIF ARGUMENT > 0. 
00/8 04 578 DEFB LLN1S-# 
0079-38 579 DEFB QUIT 
OO7A 580 ST ERROR SCALL ERROR A, INVALID ARGUMENT. 
007K = OF 581 DEFE 
Sez 
Se3 LLNIS: sLET X BE THE MANTISSA OF U, SO THAT 1/2 <= X < 1. 
Se4 3 THE BASIC ALGORITHM IS [O CALCULATE LN X & ALD GN LN 2 # 
‘ 535 3 THE EXPONENTS HOWEVER, APPLIED NAIVELY THIS LOSES A LOT OF 
5aS ; ACCURACY FOR U = 1 OR JUST GREATER. TO AVOID THIS WE USE A 
537 3 CHEBYSHEV ROUTINE THAT EVALUATES (LN X)/(X-1) WHERE - 
Soe 3 A <= X <= 2A FOR SOME A WITH A <1 < 240, & SO FIRST IF 
589 3 1/2 <= X < A WE MUST MULTIPLY X BY TWO & DECREMENT THE 
590 3 EXPONENT. 
591 $ A GOOD VALUE OF A FROM THE POINT GF VIEW OF CALCULATING 
‘ 592 3 CHEBYSHEV COEFFICIENTS IS 4/5, WHICH WE USE. 
o07¢ = AO 594 DEFB CONST+0 $0 $THIS IS FOR THE CALL SUMSLU A LITILE LATER. 
0o7D «02 a4 DEFB LOSE 
007E 38 595 DEFB GUT SNOW HL -> U, LE -> 0 
OO7F = /E 50% LD A, (HL) 3A t= CFFSET EXPONENT OF U 
ooH0 = 3680 597 LLNS! LD (HL), 128 SEXPONENT ¢= 
goe2 choooda xX S938 CALL SITKA SSTACKS OFFSET EXPONENT. 
oss ‘ S99 ST CALCTR 
0086 24, £00 UEFB LITERAL 3128 = .8 # 2H#g 
0037 38) 601 DEFH 54 
0028 0 602 DEFER O 
0089 = 03 60% LEFB SU .  $TOP GF STACK t= EXPONENT : 
COSA 01 604 DEFB EXCH sTUP OF STACK = X 
.008B 31 605 DEFER DUP 
oust = 34 b04 DEFER LITERAL 934/75 = .CCUC COCO # 280 
oo#n = FO 607 DEFB OCOH+4S 
OOSE 40 608 DEB 4CH 
oo8F = CC 609 \ DEFB OCCH 
boro CC £10 DEFB OCCH 
oovL cD 611 DEFB OCD 
0092 03 612 DEFER SUE 
0093 37 613 DEF PLUS? 
0074 00 614 WEF B IF IUMP SIF X > 4/5 
0075 08 615 DEFB LLNS-* 
0096 O01 S16 LEFB EXCH tEXPCINENT CN TUP 
0097, Al 617 DEFB CONST+1 
0098 = 03 $18 NEFB SUB 


MATHS FUNCTIONS 


Loc 


0099 
O0?A 
Q09B 


O08 - 


oo?D 
OOvE 
QOFF 
QO0AQ 
O0A2 
QOAS 
OOA4S 
QOAS 


QOAS 
OOA7 
OOAS 
OAD 


QOAR | 


QOAB 
OOAC 
QOAD 
QOAE 
QOAF 
QOORO 


OOB1 


OOR2 
OOB3 
OOK4 


OORS 


QORG 
OOB7 
OOH? 
QORD 
QOKA 
QOKB 
OORC 
OoxD 
QOBRE 
OOF 
OOCO 
OO 
OOS 
Oon4 
OOS 
OO 
Q0C? 
OOCR 
Oncg 


FUNCTS PAGE 6 

OBJ CODE M STMT SUURCE STATEMENT ASM 5.9 

O1 619 DEFB EXCH 

23 620 DEFB QUIT a 

44 621" “INC CHL) OFFSET. EXPONENT OF X t= 129 

; 622 RST CALCSR 

. O1 623 LLNS® DEFB EXCH 

34 624 DeFB LITERAL tLN 2 = .BL72 1/FS * 2HHO 

FO 625 DEFB OCOH+43 : 

3172 624 DEFW S1H+72H#256 : ® 

17 627 DEFH 17H ’ 

Fa 628 DEFR OF SH 

04 629 DEFB TIMES 

ol 630 (EFB EXCH 
631 SWE KEEP THE MULTIPLIER X-1 UNDER THE TOP GF THE STACK. THE 
622 3 LOUBLE SUBTRACTION IS fQ PRESERVE ACCURACY WHEN X IS JUST 
633 3 LESS THAN 1. 

A2 634 DEFB CUNST+2 31/2 

03 635 DEFL SUB . 

A2 626 DEFB CONST+2 $1/2 

03 637 DEFB SUB 

31 63:3 DEFB DLP 

34 639 DEFB LITERAL 35/2 = .AO # 2HH#2 

32 640 bs UEFB SO 

20 641 ' DEFB 20H i 

04 642 DEFB TINES 4 

AZ 643 DEF CONST+2 81/2 

03 644 DEFB SUR, STOP OF STACK t= S/28(X-1)-1/2 = S/24X-3 
645 $CHEBYSHEV ROUTINE EVALUATES (LN X)/(X<-1). COEFFICIENIS CAL- 
646 3 CULATED BY MYSELF. : 

8c 647 DEFB CHSV+12 
643 4 DEFR 15 SALI2I= +. 0A # 24#-33 (REMOVED) 
649 3 EF B OSAH ° 

11 ‘ 650 DEF 17 : TALLLI= -.AC # QeH-S1 

ac 651 HEFB GACH ; 

14 652 DEFR 20 : FALIOI=. +.89 & 244-28 

09 653 OEXB O9H 

56 654 DEFH 40H+22 $AL9] = —. DAAS HH 2HH-26 

pa ’ 655 DEF A OLAH 

AS 656 DEFER OASH 

59 657 DEFB 40H+25 tALCS] = +. BOCS # 24-23 : 

30 65g DEFE 30H 

cs 659 DEFB OCSH 

5C 640 DEFB 40H+28 3$AL7] = —.90AA + 2HH-20 

90 bt DEFB OH 

AA 662 DEFER OAAH 

9E 663 -DEFB SOH+30 SACS] = +.FOGF 61% 2HR-19 

706F 664 DEFW 7OH+GFH#256 

él £45 DEFB 41H 

Al b44 DEFER SOH+33 SACS] = -.CBDA 96 # 24#-15 

CB 647 HEFB OCBH 

LA 668 DEFE OLIWH 

9b 649 WEFB 94H 

A4 670 DEFER S0H+236 $AL4) = +, B19F B4 % 2HH-12 

31 671 DKF 31H 

oF 672 DEFER ?FH 


MATHS FUNCT UNS 


Loc 


OOCA 
OocB 
oocce 
oocu 
felelm 
ela) ate) 
o0n1 
OoL3 
aons 
OOUS 
OOD7 
oon? 
OOnA 
- OODB 

oonk 
OOLE 
QOL 
OOEQ 
QOOEL 
OOk2 


FUNCTS 


OBJ COLE M STMT SOURCE STATEMENT 


673 


OEFB 
DEFB 
DEFB 
LEFW 
DEFB 
DEFB 
DeEFW 
DEFW 
DEB 
DEFB 
DerW 
NEFB 
LEB 
DEFW 
QEFB 
DEFB 
DEB 
DEFR 
DErB 
RET 


sEND OF LN. 


0O84H 

OCOH+39 sAC3] = 
QOAOH 
OFEH+SCH#256 

OF CH 

OCOH+42 sAC2] 
1BH+43H#256 
OCAH+36H#256 


PAGE 


_ 7 


ASM 5.¢ 


~.AOFE SCFC 


+.9B43 CASS 


OCOH+4S SACI] = -.A79C JESE 


QA7H 

YCH+ /EH#256 
OSEH 

OCOH+43 sACO] 
6EH+22HR256 

80H 

SSH 

TIMES sTOP UF 
AnD 3TOP OF 
QUIT 


+.EEZ3 BO93 


STALK 
STACK 


s= LN 
2= LN 


# 


248-9 


ZeH-G 


2#H-3 


Z2HHO 


MATHS FUNCTIONS 
OBJ CODE M STM! SOURCE STATEMENT 


Lac 


O0ES3 
QOE4S 
QOES 
QOES 
QOE7 
QOOES 
QOED 
QOEB 
OOEC 
OOED 
OOEE 
OOEF 
QOOFO 
OOF 1 
OOF 2 
OOF3 
OOF4 
OOFS 
QOFS 
QOF7 
OOFS 
OOF? 
OOFA 
‘OOFB 
OOEC 
OOFD 
OOFE 
OOFF 
0100 


o101 
0102 
O103 
0104 
0105 
0108 
0107 
O10 
O109 


695 
696 
697 
698 
ery 
700 
701 
702 
703 
704 
705 
106 
70) 
7083 
709 
710 
711 
712 
713 
14 
715 
716 


FUNCTS PAGE 8 
ASM 5.9 
#EUECT : 
ANGLE: SREPLACES TOP, X» OF CALCULATOK STACK BY Y, WHERE ¢ 
$ -1 <= Y <= +1 & SIN X = SIN (PI/2 # Y). MEMORY O $= TRUE 
$ IF X IS IN THE 2ND OR 3RD QUADIKANT (I.E. IF COS X = 
+ -COS (PI/2 * Y)), ELSE MEMORY 0 t= FALSE, r 
+ ON RETURN, DE & HL ARE CALCULATOK STACK POINTERS. 
+ PRESERVES B & HL“, SNASHES ACA‘F*B’ CDE’. ; 7 
$ MAXIMUM STACK DEPTH = 3. r 
RST CALCIR 
DEFB FLOAT 
DEFB LITERAL = $1/(24PI) = .A2F9 S34E # 2e¥-2 ¢ 
DEFB OCOH+446 
DEFB 22H 
DEFB OF 9H r: 
LEW S3H+GEHR256 
DEFB TIMES 
DEFB DUP € 
DEFB CONST+2 3.5 
DEFB ADD 
DEFER INT r 
DERE SUB 
DEFB DUP 
DEFB ADD ! € 
DEFB DUP 
DEFB ADD sTOP OF STACK = X*“ (SAY), -Z <= X* <= 23 X IS CON- 
DEFB DUP + GRUENT WITH PI/2 # X* (MOMULO 2#PI), ri 
DEFE ABS 
CEFR CONST+1 = $2 ‘ : 
DEFB Sup é 
DEB OUP 8X7, A\X\H1, \X“N=2 UN TOP 
. DEFB PLUS? 
DEFB CUPY+0 @ 
DEFB IFJUMP SIF A\X“\ > 1 
HEFB LAE2-% 
DEFE LOSE e 
LEFB QUIT 
RET 
2 m € 
LAE2! DEFM CONST+1 $1 
DEFB SUB 
_ DEF EXCH IAX“\-2) X%, @ 
DEFB MINUS? 
DEF IF WJUMP sIF X* < -1 
DEFB LAE3-$% e 
DEF NEGATE sTUP OF STACK t= 2-\X“\ = 2-x’, 
LAE3! = DEFE QUIT + (ELSE TOP OF STALK = \X*\-2 = -x¢-2). 
RET e 
SENU OF ANGLE. 
& 
© 


MATHS FUNCTIUNS 


Loc 


O10A 
0108 
010C 
o10D 
O10E 
O10F 
0110 
o1it 
Q11z 
O113 
o114 


0115 


O116 . 


0117 
0118 
O119 
O11A 
O11B 
o11c 
o11D 


O11E 
OL1F 
Q120 
O121 
O122 
0124 
O125 
O127 
O12 
“OZ? 
0128 


O120. 


O12 
0130 
Ost 


FUNCTS 


PAGE 9 
OBJ CODE M STMT SQURCE STATEMENT ; ASH 5.9- : 
745 #EJECT 
746 
747 cost SREPLACES THE. TOP OF THE CALCULATOR STACK BY ITS COSINE. 
748 3 ON RETURN DE & HL ARE CALCULATUR STACK POINTERS. 
749 + PRESERVES B & HL“, SMASHES ACA‘F’B‘C’D’E’. 
750 + USES CALCULATOR MEMORIES 0,1 & 23 MAXIMUM STACK DEPTH = 4, 
751 sLET X BE THE ARGUMENT, & LET Y BE PRODUCED BY ANGLE, 
752 + THEN CUS X = SIN (PI/2Z-X) = SIN (PI/2#(1-\Y\)) LF X IS IN THE 
753 + 1ST OR 4TH QUADRANT, -SIN (PI/2#(1-\Y\)) IF X IS IN THE 2ND 
754 3 OR 3KD QUADRANT. 
758 RST CALCTR 
39 756 DEFB ANGLE 
2A 757 DEFB ABS’ 
Al 758 DEFB CONST+1 31 
03 759 DEFB SUB 
EO 740 QEFB MEMURY+0 
00 761 DEFR IFJUMP 31F ARGT WAS IN 2ND OK 3RD QUAURANT 
06 762 DEFB LSN2-$ 
1B 743 DEFH NEGATE 
23 764 WEFB JUMP 
03 765 LEFB LSN2-$% 
764 
767° SIN® HREPLACES THE TOP OF THE CALCULATOK STACK. X» BY SIN X. 
748 ; + ON RETURN OF & HL ARE CALCULATOR STACK POINTERS. 
769 + PRESERVES B & HL“, SMASHES ACA‘F’B“C’D-E’. 
770 + USES CALCULATOR MEMURIES 0.1 & 2+ MAXIMUM STACK DEPTH = 4. 
771 3 TAKES SOMS (ELY TIME), 37 MS (ZX8O TIME). 
172 RST CALCTR 
39 773 DEFE ANGLE 
31 774 LSN2t  QEFB DUP 
a1 775 ‘DEFB DUP 
04 776 DEFB TIMES 
31 77 DEB DUP 
OF 778 DEFB ALD 
Al 779 DEFB CONST+1 $1 
03 780 DEFE Sus +Y, 2#¥##2-1 ON TOP. 
; 7281 +CHEBYSHEV COEFFICIENTS FROM C.W.CLENSHAW, “CHEBYSHEV SERIES 
782 + FOR MATHEMATICAL FUNCTIONS’, NFL MATHEMATICAL TABLES 5 
783 + (HMSU?). 
86 724 DEFB CASV+S 
14 795 DEFB 20 sACS] = - .E6 # 2eH-28 
ES 784 DEFB OESH 
5C 737 DEFB 40H+2@ - $AL4] = + .9FOB # 2HH-20 
1FOB 789 DEFW 1FH+OBH#256 
a3 7a? DEFB S0H+35 3AC3] = - .OF3G EE # 2HH#-13 
SF 38 790 DEFW SFH+3EH#256 
EE 794 DEFE OkEH 
ED. 72 UEFB OCOH+41 7ALCZ] = + 19563 BES # 2HH-7 
1543 793 DEFW 1SH+43H#256 
BE23 7374 DEFW OR BH+Z3H#254 
Eb 795 DEFE OCOH+46 = $AL1] = - .920D CDED # 2ux-2 
9200 796 DERW YYH+OLIHE2S6 
cD 797 DEFE OCLIH 
ED 199 DEFB OEDH 


MATHS FUNCTIONS FUNCTS , PAGE 10. 


Loc’ OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
0132 «Fil 799 | ’  DEFB OCOH+49 3ALO] = + .ASSD 1HEA # 1 
0133 «62350 800 | QEFW 23H+SDHR256 
0135 1B sol DEFB 1BH , 
0136 =EA 802 DEFB OEAH 
803° 3¥, SIN (PI/2 # Y) / Y ON TOP OF STACK. 
0127 04 B04 - OEFB TIMES 3SIN X. ona 
0133 38 805 DEFBR QUIT : 
o139? CF B06 RET . 
S07 ; ‘ 
: 308 sEND OF COS & SIN, 

epay 809 

Lalgnwis so s10 TAN - 4 $REPLACES TOP OF THE CALCULAIUK STACK, X» BY ITS TANGENT. 

epee me S11 “ § UN RETURN DE & HL ARE CALCULATOR STACK POINTERS. 

Rake “= psiad 812 3 PRESERVES B & HL“, SMASHES ACA‘F‘B’C‘D‘E’. 

mow hos S13 $ USES CALCULATOR MEMORIES O — 3: MAXIMUM STACK QEPIH = 4, 
013A tr 814 RST CALCTR 
O13B! © 31-0: a1i5 | DEFER DUP 
O1g0!' LF: B14 DEFB SIN 
O1sD! OL! 8317 DEFB EXCH 
O13E!. 20 | gis | DEFB COS 
O1SF 1 05: 819 DEFB DIV - 
0140 8=— «38 820 UEFB QUIT 


o141 C9 d S21 RET 


{' é 1 \ me 


i ta : , ’ 1 


id a at 


Py 


“MATHS FUNCTIONS 


Loc 


0162 


‘0163 


0164 
01465 
O16 
O147 
01463 
0169 
O16A 
0168 


Cbpo000 
7E 
FES1 
SBOE 


x 


822 
&23 
824 


S25 


- B26 


827 
S23 


| 829 


$30 
S31 
S32 


833 


324 
635 
S36 
837 
828 
639 
£40 
641 
S42 
843 
ed4 
845 
B48 
G47 
$48 
gay 
S50 
S51 
Ss? 
$53 
S54 
655 
S56 
B57 
saa 


on 


. eay 


860 
241 
S62 
263 
244 


‘845 


S45 
847 
84 
B49 
&/0 
371 
e72 
873 
374 
875 


#EJECT 


ATNE 


LAT2: 


LAT3: 


1CTIO FUNCTS 
UB CODE M STMT SOURCE STATEMENT 


CALL 


LD A» 
cP 12 
JRC, 
RST C 
DEFH 
DEFR 
DEFB 
DEF R' 
DEFB 


“DEFB 


DEFB 
DEFB 
DEFB 
CEFB 
DEFB 
DEFB 
DEFB 


2 
DeFB 


. DEFB 


DEFB 
DEFE 
DEFB 
DEFE 
DerB 
DEF 
DEFB 


DErB 
DEFB 
DEFB 
DEF 
DEFB 
DEFB 
DErB 
DEFB 
Derk 
LEFB 


SREPLACES THE TOP OF THE CALCULATOR STACK BY ITS INVERSE 
TANGENT. 
ON RETURN DE & HL ARE CALCULATUR STACK POINTERS. 
PRESERVES & HL“. 
USES MEMORIES 0.1 & 23 MAXIMUM STACK UEPTH = 5S, 


we we ve we 


PAGE 11 


ASM 5S. 


SMASHES ACA“ 


? 


FBC ME? 


3 TAKES AT MOST SOMS (ELY TIME), 60 MS (Zx80 


FLOAT 
(HL) 

) 
LAT2 
ALCTR 


CONST+1 | 


NEGATE 
EXCH 
DIV 
DUP 
MINUS? 
CONST+3 
EXCH 
IF JUMP 
LAT3-% 
NEGATE 
WIMP 
LAT3-% 


ALCTR 
CONST+0 
EXCH 
nup 

DUP 
TIMES 
DUP 

Abg 
CONST+1 
SUB 


iSUPPOSE X WAS THE ORIGINAL ARGUMENT, & ULEFINE X* TU Bk 
X IF \X\ < 1 & -1/X IF \X\ S= 1. DEFINE A TQ BE O IF 

\X\ < 1, PI/2Z IF X >= 1, & -PI/2 IF X <= -1. THEN 
“1 <= X% <= +1, & ARCTAN X = 
TOP 3 ON STACK = A, 
THE CHEBYSHEY ROUPINE FOLLUWING EVALUATES (ARCTAN X)/X3$ 
COFFICIENIS FROM CLENSHAW (NPL). (SEE SIN.) 


we we ve we ue we 


CBSV+12 


4OH+24 


39H 


s##e USE CALCULATUR COMPARISONS? ##% 


TIME). 


$Ik EXPONENT <= 0, ILE. IF \ARGUMENT\ < 1. 


$1 


sPI/2 
sIF ARGUMENT >= 1 


3TOP OF STACK #= -PI/z. 


$1 


3AC11]= -.b2 


sAC1OI=,+.5b 


A + ARCTAN X*. 


X%, ZeX“##2-1, 


% DHH-BQ 


& ZHH-Z9 


SACS] = -.£49D  2HH-27 


sACS] = +, 898C # 2-24 


MATHS FUNCTIONS 


LOC . 


014C 
O14D 
O14GE 
O16F 
0170 
O171 
0173 
0174 
QLyp. 
ALG: 
o177. 
O178. 
O17? 
O1/A, 
178 
Oy, 
OL 7K, 
OLE, 
O1gd, 
O1S1, 
0183 
O18s 
O136, 
O187 
0189 
018A 
O18B 
oO1sc 
O1SE 
O1SF, 
o1v0 
O191 
o1g2 


0193 
“O194 
O195 
O19 
0197 
O198 
OLR? 
OLPA 
O19B 
o19c 
O19U 


O19E 


O19F 


O1AU 


FUNC I's PAGE 12 
OBJ: COUB M. STMT, SOURCE STATEMENT : ASM 5.9 : : 
BC 874 1 4+ DEFB OBCH . 
Se 877: DEFB 40H+27 tAL7] = -. 98FD % DBHH-21 
93 £738 mt DEB YSH tt ere ep 
Fu B79 DEFB OFDH 1... 00: 
9E Fotcya) DEFB SOH+30r° i> SALG] = +.80236 17  2HH-18 
0036 31 DEFW OGH+346H#256 | uf MiG Ray 
75 832 DEFB TSH eg te beso \ me 
Xs) 833. DEFB SOH+32... $AC5] = -.DBES :B4 # 2HH-14 | 
Bi. ween 7 Sa4 ‘ DERE Ob at ’ 
Eg BS5, DEFBR OEGH re hy 
Ba BSS « DEFB, OB4H 
63. 837 LEFB 40Ht35 $AL4) = 4.0204 00 ® ZHH-13 
42 Bo, DEFB 42H 5. 
CA, Pate) DERB OCAH |. 
Et. - e370 DEFB OCOH+a8 SACS] = -,BSO9 S4HE # 2HH-10 
HS? BDL. DERM OBSH+O9H#256 
BS. 892. DERB 34H: 
BE, 893 LEFH OBEH ‘ 
EY. Bra. CERB .OCOH+41 $AC2] = +.8673 1BSD * 28-7 
2673 B75, DEFW SGH+7SH#256 
1 BSD S7s DEFW 1BH+SDHR256 
EC, : 897 DEFL OCOH+44 $AC1] = -.USDE 463BE * 244-4 
DS Sve DEFB OSH 
DES3 avy DEFW OUEH+63H#256 
BE 900 DEF OEKH 
FO O04 DEFR OCOH+43 SACO] = +.E1A1 B30C 
él 902 DEFB 61H 
Al 903 LEFB OA1H | 
as0c 204 DEFW OBSH+OCHE254 
04 905 DEFB TIMES 
OF 90% DEFB ADD 
3% ; $07 DEFB QUIT 
co 908 RET 
909 
’ 210 $ENU OF ATN. 
Q11 
’ 912 ASN: SREPLACES THE TOP OF THE CALCULATOR STACK BY ITS INVERSE 
913 3 ‘SINE. 
914 °$ ON RETURN, VE & HL ARE CALCULATOR STACK POINTERS. 
V1S $ PRESERVES B & HL’, SHASHES ACA’F‘B’C’D-E’. 
916 RST CALCTR sLET S$ = SIN X BE THE TOP OF THE STACK 
31 917 DEFB LUP 
31 913 DEFB [uP 
04 IID DEFB TIMES 
Al 920 DEFER CONST+1 31 
03 721 DEB SUB 
1B 922 DEFB NEGATE 
28 923 DEFB ROOT 
Al 924 DEFR CONST+1 31 
OF 925 DEFB ALE $5/(14+(1-S#S)*(1/2)) = TAN X/2 
OF 926 DEF DIV . 
24 7 927 DEFER AIN 
31 928 DEFB DUP 
OF 929 DEFR AL 


‘oialr 


sat 


oy 


(MATHS \FUNCTI ONS 
‘ops CODE M STMT SUURCE STATEMENT 


‘Lac 


Ota2 


oot ocay 


: 


O1AA 
O1AB 
a1aACc 
OLAD 
OLAE 
OLAF 


Q1BO - 


O1B1 
O1B2 
O1B3 
O14 
O1BS 
O1BS6 
O1E7 
O1B8 
O1LRK9 
O1BA 


O1LBD 
O1BE 
O1EBF 
o1ca 
O1ci 
O1C2 
O13 


Nag 
“leg 


C32400 R 


" 930 
$34 


932 
933 


, 234 
' 938 


936 
P37 
938 
939 
240 
P4l 
P42 
743 
944 
945 
GAG 
947 
DAS 
v4D 


sone 


a1 
352 
93 
v4 
VSS 
9546 
937 
Pot 
959 
960 
9b1 
962 
963 
264 
94S 
SOS 
IS7 
P43 
969 


970 


971 
972 
973 
974 
97S 
976 
277 
978 
979 
930 
PSL 
P82 
S33 


FUNCTS 


 BEFE 


a 


sEND OF ASN. 


ACS: 


ROOTS 


TOW THE: 


LPR2: 


futed 


DEFB 


DEFB CONST+3 


CEFR 
DEFB 
DEFER 
RET 


DEFB 
DEFB 
DEFH 
CEFB 
DEFB 
DErB 


CEFB 
DEFB 
DEFB 
DEFB 
HEFB 
DEFB 
HEB 
DEFB 


‘how 


‘QULT 
‘RET oe 


tte y 
pte 
fn 


PAGE 13 
ASM 3.9 


PLACES THE TOP OF THE CALCULATOR STACK BY ITS INVERSE 


N RETURN, UE & HL ARE CALCULATOK STACK POINTERS. 
i PRESERVES B & HL“. SMASHES ACA‘F‘B’C’D‘E’, 
RST CALCIR 


ASN 


SUB 
NEGATE 
QUIT 


3 RE! 
', $ COSINE. ‘ 
“3 0 


sPI/2 


sREPLACES THE TOP OF THE CALCULATOR STACK, X, BY 11S SQUARE — 
3 


ROOT. 


* ON RETURN DE & HL ARE CALCULATOR STACK POINTERS. 
$§ PRESERVES B & HL’, SMASHES ACA’F‘B’C’*D‘E’, 

set REPLACE WITH NEWTON RAFPHSON SRQUAKE RGOT #44 
RST CALCTR 


DUP 
ZERO? 
IF JUMP 
LPR4-$ 
CONST+2 
QUIT T 


we we us ve 


X##Y, 
ON RETURN DE & HL ARE CALCULATOR STACK POINTERS. 
PRESERVES HL’, ‘SMASHES ABLA‘F’B“C*DVE*. 

USES CALCULATOR MEMURIES 0 — 43 MAXIMUM STACK DEPTH = 4. 


S$IF ARGUMENT IS ZERO 
81/2 ; 
SREPLACES THE TOP TWO, X & Y, ON THE CALCULATOR STACK BY 


suet PUT IN INVEGER POWER COLE tate 
RST CALCTR 


EXCH 
DUP 
ZERO? 
TF JUMP 
LERZ-% 
LN 
FINES 
QUIT 


JP EXP 


DEFE 
Gers 
DEFB 
DEFER 
DEFB 
DEre 
DEFE 


LOSE 
DUP 
ZERO? 
TF IUIMP 
LPRS—§ 
CONS T+O 
EXCH 


SIF X= 0. 


SHERE IF X NOT= 0. LN THROWS LIS QUT IF X <0. 


3X = 0. Y LEFT ON STACK: WE CALCULATE Gey, 


SIF Y= 0 


tO = OHHY IF Y > 0. 


MATHS FUNCTIONS FUNC I'S PAGE 14 
Lac OBJ COLDE M STMT SOURCE STATEMEN] : ASM 5.9? 
01c4 37 984 DEFB PLUS? 
o1cs 00 ess CEFB IF JUMP SIF Y> 0 
oO1cs 0s 986 LEFB LPR4-$ 
O1C7 Al * $87 DEFB CONST+1 $1 
o1C3 oO. 933 DEFB EXCH ; 
O1cy OS 98 DEFB DIV 3 THROWN QUT WITH EXPONENT OVERFLOW. 
O1CcA O2 970 LPRSs DEFB LOSE 
O1CB Al 991 DEFB CONST+1 $1 = O##O 
o1c¢c 38 992 LPR4: DEFB WuITt 
o1ich cy SoS RET 
vI4 
v?5 $sENU OF TO_THE & ROOT. 
POS 


O97 EN 


Loc 


0000 


e001 ° 


OO1LF 
0020 
oo21 
0029 
002A 
O02B 
O0zS 
0397 
OO3A 
Q04A 
O04B 
004c 
0052 


X\XN 


OBJ CODE 


£0 
53746172 
AE 
oD 
SO726F 67 
AQ 
ob 
4E756N62 
AO 
oD 
4234686172 
AO 
oD 
42797465 
AQ 


TAPEMSG PAGE 1 


M STMT SQURCE STATEMENT ASM 5.9 
1 NL Eau .ODH 
2 
3  SEPRMT: sSAVE PROMPT 
4 DEFB 80H 
5 DEKM “START TAPE, THEN PRESS ANY KEY’ 
6 LDMESt DEFB “.~.OR.80H 
2 DEFB NL ° 
8 DEFM “PROGRAM: “ 
9 DEFB ’ “.OR.&0H 
10 DEFB NL 
11 DEFM “NUMBEK ARRAYS ¢ 
12 DEFB “ “.0R.80H 
13 DEFB NL 
14 DERM “CHARACTER ARRAY? ” 
15 DEFB “ “.OR.80H 
1 DEFB NL 
17 DEFM ‘BYTES?’ 
18 DEFB ’ “.OR.80H 
19 


CHARACTER SET FOR TV CHSET , . PAGE +1 


Loc OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
1 #HEAD CHARACTER SET FOR TV 
2 #PAGESIZE 54 
3 4 , 
4 3 UOT PATTERNS FOR CHARACTERS ON THE TV SCREEN: 
3 30 CHARACTER WITH CODE X IS AT OFFSETS &X (TUP LINE) 10 &X+7 (BUTTOM LINE) 
& § O = WHITE, 1 = BLACK, NO MARGINS BETWEEN ‘CHARACTER SPACES EITHER 
7 3 _ VERTICALLY OR HORIZUNTALLY t 
8 : 
3000 9 ORG 3DOOH 22 
S00 00 10 DEFB 00000000B § CODE 20 SPACE 
S001 00 11 DEFB GO0O0Q000B 
SD02 cele) 12 DEFB .QQOQO000B 
SL03 00 13 DEFB 000000008 
SL04:° 00 14 : DEFBR 00000000B8 
SOS fale) 15 DEFB 000000008 
“SD06 a0 146 DEFB ON000000B 
S007 00 ? 17 DEFB OQ0O0000B 
13 
S00g 00 iy DEFB .00000000B ’ CODE 21 : 
sno? 10 20 DEFB 00010000B 
SDOA 10 21 DEFB 00010000B 
3D0B 10 22 DEFB 00010000B 
3b0c 10 23 DEFB 00010000B 
SDopn 00 24 DEFB Q0000000B8 
SHOE 10 25 DEFB 00010000B 
SDOF a0 26 DEFB O0000000B 
27 
3010 00 23 DEFB 00G0Q00000B § COVE 22 e 
3011 24 29 DEFB 00100100B 
Su1Z 24 30 DEFB 00100100B 
3013 00 31 DEFER O0000000B 
3014 ole ae 32 _ DEFR 00000000B 
SDS 00 33 DEFB OQOOOO00R 
S016 00 34 DEFB OO000O00B 
3017 a0 35 DEFB OO000000R 
346 ; 
S019 90° , 37 DEFB OQ000000B 3 COVE 23 # 
sD19 24 / 38 ' DEFER 001001008 . 
BU1A 7E 39 DEFB 0111111068 : ; 
SD1B 24 40 QEFB 00100100B 
Sb1c 24 41 DEFB OO100100B . 
3D1D 7E 42 DEFB O1111110B ° 
SD1E 24. ; 43 DEFB 00100100B - 
SO1F a0 44 DEFB OO000000B 
45 
S020 00 46 DEFB O0000000B § CODE 24 $ 
S021 Og 47 DEFB O00010Q00BR 
3022 3E 43 DEFER 0011111068 
3023 23 4? DEFB 00101000B 
3024 3E SQ DEFH OO111110B 
30z5 OA 1 DEFER 000010108 
3026 3E S2 DEFB 001111108 


3027 Os / 33 DEFER OOOO1L0008 


, 


CHARACTER SET FOR TV 
OBJ CODE M STMT SOURCE S!tATEMENT 


Loc” 


3023 
SD29 
Sn2 

30283 
Sp2c 
2020 
BOSE 
SOF 


S030 
SuUS1 
SD32 
S033 
3034 
3035 
3034 
337 


3033 
SDs? 
203A 
SDSB 
SDSc 
3030 
SDVNSE 
SDF 


2040 
aD41 
3042 
3043 
2044 
2045 
2046 
3047 


ap4a 
SD49 
3D4A 
S048 
. 3n4c 
3n4D 
304E 
SO4F 


20s0 
051 
ans2 
353 
3054 
3055 
356 
3087. 


SS 
56 


CHSET 


DEFB 
DEFE 
DEFE 
DeErFB 
DEFB 
DEFB 
DEFER 
DEFB 


DEFE 
DEFS 
DEFB 
DEFR 
DEFB 
NEFB 
DEFB 
DEFER 


DEFB 
DEFB 
DEFB 
DEFB 
UEFB 
DEFB 
DEFE 
DEFB 


DEFB 
DEB 
DEFB 


‘DEFR 


DEFER 


. DEFB 


DEFB 
CEFB 


DEFB 
DEFB 
DEFB 
DEE 
DEFR 
DErsB 
DEFR 


_ DEFB 


DEFE 
DEFB 
LEFE 
DEFER 
DEFB 
DER 
DEFE 
OEFB 


Q0000000B 
01100010B 
01100100B 
00001000B 
00010000B 
00100110B 
01000110B 
Q0000000B 


O0000000B 
00010000B 
00101000B 
00010000B 
00101010B 
010001008 
001110108 
O0000000B 


000000008 
000010008 
00010000B 
O0000000B 
Q0000000B 
Q0000000B 
OOGQ0000b 
O0000000B 


OO000000B 
00000100B 
Q0001000B 
00001000B 
00001000B 
00001000B 
00000100B 
QQO0Q000B 


QO000000B 
00100000B 


NOO1LOO0OB - 


Q0010000B 
000100008 
000100008 
00100000B 
NO0OO000B 


000000008 
AHOOOOOOOBR 
00010100B 
900010008 
001111108 
00001000B 
00010100B 
QQOO0000B 


CODE. 


CODE 


CODE 


CODE 


CODE 


CODE 


P 


25 | 


26 


27 


28 


2? 


AGE 2 
ASM 5.9 


va 


. 


Xe 


CHARACTER SET FOR TV 
OBJ CUDE M STMT SOURCE STATEMENT 


Loc 


3D53 
SDS? 
S035A 
SDSB 


SD5C, 


305D 
S058 
SDSF 


3LI60 
SD&1 
3062 
S063 
SUS4 
2065 
SO46 
3067 


S063 
S049 
BD6A 
S04B 
SD46C 
S040 
SD6E 
S06F 


3D70 


3071- 


SU72 
3073 
S074 
S075 
3076 
3077 


2073 
S079 
3D7A 
207B 
307C 
30/B 
SU7E 
SU/F 


S030 
S0e1 
pe) Ue 
S0e3 
Sns4 
S085 
S036 
S37 


109 
110 
111 
112 


. 113 


114 
115 
118 
117 
118 
119 
120 
121 


143 


CHSET 


DEFE. 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFE 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFER 
DEFER 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEF 
DEFB 


DEFB 
fEFB 
DEFB 
OEFB 
DEFB 
HEFB 
DEFER 
fEFB 


DEFER 
OEFE 
DEFB 
DEFB 
DEFER 
DEre 
DEFB 
DEFB 


DEFB 
DEFB 
DEFE 
DEFB 
DEFE 
DEFB 
DEFR 
DEE 


00000000B 
00000000B 
00001000B 
90001000B 
00111110B 
00001000B 
00001000B 


OOGOOQ00B - 


00000000B 
00000000B 
00000000B 
00000000B 
QHOOOOOOOB 
00001000B 
000010008 
00010000B 


000000008 
00Q00000B8 
QOOOOQOOR 
000000008 
00111110B 
Q0000000B 
Q00Qd00000B 
Q0000000B 


0000000B 
00000000B 
00000000B 
Q0000000B 
0000Q000R 
00011000B 
0001 10008 
00000000B 


QOOOOOOOE 
QQOOOOOOR 
QO000010B 
000001008 
000010008 
00010000B 
00100000B 
Q00000008 


90111100B 
010001 10B 
010010108 
O1010010B 
01100010B 
OOLLLLO0OB 


QQOQOOOUOR 


P; 


CODE 2B 


CONE 2C 


CODE 2D 


CODE 2E 


CODE 2F 


CODE 30 


AGE 3 


ASM 5.9 
+ 
, 
/ 
Qa 


CHARACTER SE1 FOR. TV 
OBJ CODE M STMT SUURCE SfATEMENT 


LOC 


3Des - 


S089 
_ SDBA 
303B 
Src 
S030 
BOSE 
SDF 


BLeO 
Sny1 
BDY2 
S093 


BDY4 | 


S095 
S096 
S097 


2093 
Sle 
SLIDA 
S098 
snec 
20°D 
SDE 
SD9F 


20A0 
SLA 
3DAz 
2DA3 
—3na4 
305 
3DAG 
3DA7 


SLAS 
3DA9 
SDAA 
SDAB 


SLAC . 


SDAD 
SDAK 
SDAF 


3DBO 
S0B1 
SDB2 
SDB3 
SOB4 
SDBS 
SOBG 
301B7 


163 
164 
145 


' 164 


CH_SET 


DEFB 
DEF 
DEF 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
DEFE 
DEFB 
DEFB 
DEFB 
DEFER 


DEFB 
' DEFB 
DEFB 
DEFB 
DEFB 
DErB 
LIEFB 
DEFB 


 DEFB 
DEFER 
DEFB 
HEFR 
DEFB 
DEFE 
DEFE 
DEFB 


DEFB 
DEr & 
DEFB 
DEFB 
DEFB 
DEFE 
DEFEB 
DEF 


DEFB 
OErB 
DEFB 
DEFB 
DEFB 
DEF 
DEFE 
LEFB 


00000008 
0001 1L000B 
00101000B 
00001000B 
00001000B 
00001000B 


OO111110B . 


000000008 


Q0000000B 
00111100B 
01000010B 


QO0O001LOB 


001111008 
010000008 
011111108 
Q0N00000B 


Q0000000B 
001111008 
O1000010B 
000011008 
OOOd0010B8 
10000108 
OO111100B 
QOHQOOQO0B 


oo0000000B 
000010008 
000110008 
001010008 
010010008 
011111108 
000010008 
VODOOQO00R 


O0000000B 
OLLL1110B 
01000000B 
O1111100B 
OOOOOO1OB 
01000010B 
00111100B 
Q0000000B 


Q00QOQO00R 
O0111100B 
OLOQOOOOOR 
011111008 
01000010B 
01000010B 
QOO1L1LL1008 
Lele Terererererey | 


we 


CODE 


CODE 


CODE. 


COLIE 


CODE 


CODE 


32 


33 


34 


35 


36 


CHARACTER SET FOR TV 
OB CODE M STMT SQURCE STATEMENT 


Loc 


30BS 
30H? 
SDEA 
SDBB 
SDEC 
3OBD 
SDBE 
SOBF 


SOLO 
enc. 
30C2 
2OC3 


S004 


SnCS 
3006 
3007 


S0CS . 


S009 
SOCA 
S0CB 
30cC 
30cD 
3UCE 
S0CF 


0D0 
<0) AB | 
SUU2 
SDD 
SDD4 
“2DpS 
S006 
S007 


SODS 
Sonny 
SDA 
SO0B 
300 
S000 
3LOE 
SDDF 


SDEO 
SDE1 
SUE2 
3DE3 
SDE4 
SDES 
SLES 
S0E7 


00 217 
7E 218 
02 219 
04 "220 
08 221 
10 222 
10 223 
rate) 224 

. 225 
00 224 
3c 227 
42 22 
ac 229 
42 230 
42 231 
30 232 
raza) 2s 233 
234 
00 235 
3c 234 
42 ' 237 
42 238 
a 239 
a2 240 
ac 241 
00 Bae 
243 
(are) 244 
00: 245 
00 246 
10 247 
00 248 
oo 249 | 
10 . 250 
rare) 251 
. 252 

‘oo’ 253 

00 254 
10 255 
(ere) 256 
00 257 
10 253 
10 259 
20 260 

261 
00 242 
00 263 
04 264 
as 265 
10 266 
03 247 
04 268 
ao 269 

270 


CH_SET 


DErB 
DEFB 
DEFB 
DEFB 
DEFB 
IEF B 
DEFB 
DErB 


DEFB 
DEFB 
DEFB 
DEFB 
DEF B 
DErB 
DEFB 
DEFB 


DEFE 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
vEFB 


DEFE 
DEFB 
DEFB 
DEFB 
NEF EB 
DEF 
DEFB 
DEFB 


DEFE 


’ DEFB 


DEF E 
DEFER 
DEFB 
DEFB 
DEFE 
DEB 


DEFER 
DEFER 
DEFB 
Dk B 
DEFB 
DEFR 
DEF Et 
DEFE 


000000008 
O1111110B 
00000010n 
00000100B 
00001000B 
000100008 
00010000B 
OO000000B 


OOOOOOONOR 
001111008 
01000010B 
001111008 
01000010B 
O10000108 
001111008 
QO00Q000B 


Q0000000B 
001111008 
QO1000010B8 
010000108 
001111105 
000000108 
00111100B 
GQ0000000B 


O0000000B 
Q0000000B 
Q0000000B 
900100008 
QON000000B 
000000008 
00010000B 
QO000000B 


OOO0O000B 
Q0000000B 
O0O1LO000B 
QOOOOOOOB 
OOOOOOOOB 
000100008 
O00 100008 
001000008 


ONNDOOOOOK 
QQn0n0000B 
QOOOO1LOOR 
000010008 
000100008 
0QNNO1000BR 
QNQN000 LOOR 
QOOQQ000R 


FP 


} CODE 37 


CODE 36 


CODE 39 


COLE 3A 


CODE 3B 


CUDE 3C 


AGE 5. 

ASM 5.9 
ey, 
8 
9 
$ 
3 
< 


$ 


CHARACTER SET FOR TV CH_SET PAGE & 


LOC - OBJ CODE M STMT SOURCE STATEMENT : ASM 5.9 
Snes 00 271 DEFR 00000000B : $s COVE 3D = 
SDE? ad 272 DEFER GCO0Q0000B 
BDEA 00 . 273 DEFB O0000000H 
BOER ZE 274 DEFB 001111108 
Spec 600 275 DEFB GOO000000B 
SDED SE 276 DEFB 00111110B 
SDEE 00 277 DEFB OOO0O00OB 
SUEF a0 278 DEFE OOOQ0Q000B 

. 279 
SDFO) 8=— 00. 220 DEFR OO000000B § CODE 3E -> 
BOF 1 a0 231 DErB GOOO0Q000B : 
SLF2 10 232 DEFE G0010000B 
SDF3 «608 283 DEFB OOOOL000B 
SLUF4 04 284 DEFB 00000100B 
3S0F5 08 285 DEFER 00001000B 
SDFS 10 286 * DEFB 00010000B 
SDOF7 00 . ° BE7 DEFB 00000000B 

2e8 . . 
20F8 00 289 DEFR GOO000000B $ CODE 3F ; ? 
20F9 3c 290 GEFB OOLLL100B . 
DFA 42 "204 DEFB 01000010B 
SDIFB 04 292 DEFB 00000100B 
sDFc 80 «oS 293 ' NEFB 00001000B 
SD0FO ao | ; 294 DEFB 000000008 
3UFE 08 295 LEFB .00001000B 
30FF 00 296 DEFER GOOO0Q00B 
297 ; 

3EO0O. OO 298 DEFB OOodnO00B $ CODE 40 @ 
SEOQ1 3c 299 DEFB 001111008 
ZEO2- 4A 300 _ DEFB 010010108 
SEO3 856 301 DEFB 010101108 
SEO4 SE” 302 DEFB O1011110B 
SEO5 §=640 303 DEFB 010000008 
3EO6  -3C 304 ; DEFB 00111100B 
3EO7 00° 305 DEFB OOQ00000E 

: B04 
2E08 00 207 DEFB OOO0O000B $$ COLE 41 a 
SEO? =—-30 308 DeEFe 001111008 
SEOR 8642 309 DEFER 010000108 
SEOB 42 310 DEFB 01000010B 
BSEOC  7E B11 DEFB 011111108 
BEOD 8642 312 DEFB 010000108 
SEQOE 42 313 DEFB 01000010B 
SEOF 00 314 DEFB - 000000008 

315 

3E10 00 3146 DEFBR Go0oOOOOR s CODE 42 B 
SE11 7¢ "S17 DEFB OLL11100B - ; 
SE1Z 42 318 DEFB 010000108 
SE12 7¢ S19 -  DEFB 011111008 
SE14 42 320 DEFB 10000108 
SE15 42 321 DEFER O1000010B 
SE16 7C B22 DEFB O1111100B 


SE17 00 323 DEF OOQOOOO0R 


ors 


CHARACTER SET FOR TV 
CQBJ CODE M STMT SUURCE STATEMENT 


Loc 


3E18 
SEL? 
SELLA 
SE1B 
3E1C 
SE1D 
3E1E 
3E1F 


3E20 
SE21 
SE22 
SEZ23 
3E24 
SE25 
SEZ 
SE27 


SEZ3 
SE2Y 
SEZA 
SE2B 
SE2C 
SE2D 
3EZE 
SEZF 


SE30 
SESL 
3E32 
SEI3 
3E34 
SE35 
SE36 
E37 


3E33 


SES? 


SESA 
3E3B 
3E30 
SESD 
SESE 
3E3F 


3E40 
SE41 
BE42 
SE43 
SE44 
SE4S 
3E44 
3E47 


325 
326 
327 
3283 
32? 
330 
331 
BS2 
333 
334 
335 
336 
337 
323 
B39 


CH.SET 


DEFB 
vEFB 
DEFB 
DEFB 
DEFB 
DEFB 
LEFB 
DEFB 


DEFB 
DeEFB 
DEFB 
DEFB 
LEFB 
DErB 
DEFE 
LEFB 


DEFB 
DEFB 
DEF 
LEFB 


‘DEFB 


OEFB 
DEFB 
DEFB 


DEFB 
OF B 
DEFB 
DEFB 
DEFB 
DEFR 
DEFB 
CrFB 


DEFB 
DErB 
DEFB 
DEFB 
DEFB 
DEF 
DEFB 
DErsB 


DEFB 
LIEFB 
Cik+ B 
DEFB 
DEFB 
DEFB 
DEFEB 
DER 


‘000000008 


001111008 
01000010B 
01000000B 
01000000B 
01000010B 


OO111100B8. 


000000008 


OOQ000000B 
01111000B 
01000100B 
010000108 


‘01000010 


01000100B 
01111000B8 
000000008 


00000000B 
011111105 


O1L000000B 


01111100B 
01000000B 
01000000B 
01111110B 
a00000008 


G0000000B 
011111108 
10000008 
011111008 
010000008 
010000008 
01000000B 
00000000B 


QOOOOO0OB 
001111008 
01000010B 
01000000B 
010011108 
010000108 
00111100B 
900000008 


QOOOQOOO0R 
010000108 
01000010B 
O11111108 
010000108 
010000108 
O1000010B 
Q0000000B 


P 


CODE 43 


CODE 44 


CODE 45 


CODE 46 


CODE 47 


CODE 48 


AGE 7 
ASM 5.9 


Cc 


CHARACTER 'SET FOR TV 
" OBJ CODE M STMT SOURCE STATEMENT 


Lac 


3E43- 


BE49 
SE4A 
'SE4B 
‘SE4c 
SE 4D 
‘SE4E 
‘SE4F 


“BESO 
E51 
SES2 
SES3 
3E54 
SESS 
SESS 
SES7 


SESS 
SEND 
SESA 
SESB 
SESC 
SEo0 
SESE 
BESF 


3E4O. 


SE41 


SE62 - 


SE43 
3EG4 
SEGS 
SESS 
SE67 


SE6S 
3E69 
SESA 
SE68 
BEC 
BE4D 
3EGE 
SEGF 


3E70 
SE71 
3E72 
SE73 
3E74 
SE7S 
3E76 


379 
280 
331 
2g2 
393 
484 
abs 
BS 
387 
283 
S39 
290 
391 
a2 


393 


- 394 


P75 
BPG 
397 
BPs 
see 
400 
4ol 
402 
403 
404 
403 


406 


407 
403 
409 
410 
411 
412 
413 
414 
415 
416 
417 
413 
419 
429 
421 
422 
423 
424 
425 
426 

27 
428 
429 
430 
431 
432 


CH-SET 


DEFB 


 DEFB 


DEFB 
DEFB 
DEFE 


DEFER 


DEFB 
DEFB 


’ DEFE 


DEFB 
NEFB 
DEFER 
DEFE 


, CEB 


DEFB 
DEFB 


DEFE 
DEFB 
DEFB 
DEFB 


’ DEFER 


DEFB 
DEFB 
Er & 


00000000B 
00111110B 
00001000B 
000010008 
00001000B 
000010008 
00111110B 
00000008 


Q0000000B 
00000010B 
000000108 
000000108 
01000010B 
010000108 
001111008 
00000000B 


000000008 
010001008 
01001000B 


011100008 


010010008 
01000100B 


-01000010B 


Q00000008 


OQ000000B 
010000008 
01000000B 
OLO000000BR 
OLOQOOOOOR 
010000008 
QLLLLL108 
QOQ0OQ00R 


OO000000B 
010000108 


011001108 


O1011010B 
O1000010B 
010000108 
010000108 
00000000B 


O0000000B 
01000010B 
011000108 
010100108 
010010108 
Q1000110B 
O1000010B 
OOOOO000R 


P 


‘CODE 49 


roe ' 
CODE 4A 


COUE 4B 


CODE 4C 


COVE 4D 


CODE 4E 


AGE =) 
ASM 5.9 


6 


a 


CHARACTER SET! FOR TV 
OBJ CUDE M STMT SUURCE STATEMENT 


Lac 


3E73 
SE79 
3E7A 
3E7B 


BE7C 


SE7D 
SE7E 
3E7F 


SES 

SES1 
SEa2 
SERS 
3Eg4 
SESS 
SESS 
SES7 


BESS 
SES? 
SESA 
SES 
SESC 
SE30O 
SESE 
SESF 


SEPO 
SEV1 
SE¥2 
SEV3 
E94 
SE?S 
BEGG 
SE97 


SEVS 
SE9Y 
SEPA 
SEDB 
SESC 
SE9D 
SE9E 
SE9F 


SEAOQ 
SEAL 
SEA2 
SEA3 
SEA4 
SEAS 
SEASG 
SEA7 


433 
434 
435 
436 
437 
433 
439 
440 
441 
442 


CH_SET 


DEFB 


000000008 
001111008 
010000108 
010000108 
01000010B 
01000010B 
00111100B 
000000008 


QNNOOOOOB 
011111008 
OLOO00LOR 
010000108 
011111008 
O10000008 
01000000B 
QO0000008 


QONDQNOOOB 
Q0111100B 
010000108 
01000010B 
010100108 
01001010B 
00111100B 
QAQOKHQOOR 


ONQNOOOOE 
OLALLLO0OB 
01000010B 
010000108 
OLILL100B 
010001008 


OLOOOOLOBR - 


QOOQOQOOR 


QQN0OOQ0B 
001111008 
010000008 
QO0O1111008 
OOOOOO1LOB 
Q100001 08 
001111008 
felererererarayey =) 


OCOQOQOOCE 


‘211111108 


OOOLOQOOR 
000100008 
OOOLOOOOR 
0OG1LOOO0R 
OOOLOOOOB 
QO0DQOQ00B 


CODE 


COuE 


COLE 


CODE 


COVE 


COLIE 


P 


4F 


50 


Si 


52 


$3 


AGE 9° 
ASM 5.9 


Q 


© 


CHARACTER SET FOR TV 
O8J CODE M STMT SOURCE STATEMENT 


Lac 


3EAS 
SEA? 
SEAA 
SEAB 
SEAC 
SEAD 
SEAE 

SEAF 


BEBO 
SEBL 
SEB2 
SEBS 
3ER4 
SERS 
SERS 
SER7 


SEBS 
SEB9 
SEHA 
SEBB 
SEBIC 
SEBD 
3ERE 


” SEBF 


3ECO 
SEC1 
2EC2 
SEC3 
3EC4 
SECS 
SECK 
SECT 


SECS 
SECO 
BECA 
SECB 
SECC 
SECD 
3ECE 
SECF 


SEO 
SEDL 
SED2 
SED3 
SED4 
SEDS 
SED4 
SED7 


487 
483 
439 
490 
491 
492 
493 
494 


CHSET 


DEFE 
DEFE 
DEFB 
DEFB 
DEFB 
DEFE 
DEFB 
DEFB 


DEFB 
DEF S 
DEFB 
DEFB 
DEFE 
CEB 
DEFB 
DEFB 


DEFB 


‘ DErB 


DEFB 
DEFB 
DEFB 
LEP E 
DERM 
DEFB 


DEFB 
DEF B 
DEFB 
Der 


. DEFE 


LEFB 
DEF 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFEB 
LEFB 
DEB 
OF B 


DEFB 
DEF E 
DEFE 
DEFER 
DEFR 
DEFE 
DEFB 
HEr ea 


Q0000000B 
01000010B 
01000010B 
01000010B 
O1000010B 
O10000108 
001111008 
ONOOOOOOB 


QO0Q0000B 


O1000010B 


G1000010B 
010000108 
O1000010B 
00100100B 
00011000B 
00000000B 


O0000000B 
010000108 
01900010B 
010000108 
01000010B 
O1011010B 
00100100B 
QOQ00000B 


OOONOQCOR 
0100001058 
00100100B 
0001 L000B 
0001 1000B 
001001008 
O1L000010B 
OOOOGO00R 


00000000B 
10000010B 
01000100B 
GO101000B 
00010000B 
000100008 
00010000B 
000000008 


Q0000000B 
OLLLL110B 
000001008 
000010008 
OO01L0000B 
00100000B8 
0111111068 
QO000000B 


COLE 


- CODE 


COVE , 


CODE 


CODE 


CODE 


F 


oS 


36 


57 


53 


Ss? 


SA 


AGE 10. 


AEM 5.9 


u 


CHARACTER SET' FOR TV 
OBI’ CODE M STMT SOURCE STATEMENT 


Loc 


SELB 
SEND: 
SELA' 
SEDS' 
SEDC 
SEDD' 
SEDE 
SEDP 


3EEQ' 
SEE! 
SEE’ 
SEES 
SEE! 
SEES 
BEES 
SEE7 


SEES 
SEED 
SEEA 
SEEB 
SEEC 
SEED! 
SEEE 
BEEF 


BEFO , 


SEF 1 
2EF2 
SEFS 
BEF4 
SEFS 
BEF6 
SEF7 


SEF 
SEF9 
3EFA 
2EFB 
SEFC 
ZEFD 
SEFE 
SEFF 


aFOO 
SFo. 
ZFO2 
SFOS 
3FO4 
SFOS 
SFOG 
SFO7 


578 
S77 
Seo 
bate 


S82 


583 
o34 
S85 
S36 
S87 
583 
Sey 
S90 
sgt 
S92 
i973 


S94 


CH.SET 


DEFB 
DERE 
DEFB 
DEFB 
DEFB 
DEFB 
DEFE 
DErB 


DEFB 
DEFB 
DEFB 
DErB 
DEFB 
OEFB 
DEFB 
VEFE 


DEFB 
DEFB 
BEF E 
CErB 


* DEFB 


DEF B 
LEFB 
DEFE 


DEF 
DEFR 
CEFB 
DEFR 
LEFB 
Cer B 
DEFB 
DEFB 


' DEFB 


DEFB 
DEFR 
DEFB 
DEFE 
DEFB 
DEFB 


Ders 


DEFB 
Orr B 
DEFB 
LIEF B 
DEFB 
DEFB 
DEFB 
DEFER 


00000000B 
00001110B 
000010008 
00001000B 
00001000B 
00001000B 
00001110B 
00000000B 


QQ00O000BR 
Q0000000B 
01:000000B 
901000008 
00010000B 
000010008 
Q0000100B 
Q0000000B 


QOOQOOOOER 
O1110000B 
00010000B 
O0010000B 
00010000B 
00010000B 
01110000B 
OQNQOOOOB 


OO0Q0000B 
00010000B 
00111000B 
010101008 
QOULOO0OOB 
00010000B 


QOO1Q000B - 


00000000B 


00000000B 
Q0000000B 
Q0000000B 
QOd00000B 
QOOOOOQOR 
QO000000B8 
ON000000R 
211111118 


QOOQ0000OB 
00011100B 
QOO1LO0010B 
011110008 
001000008 
QOO1L00000R 
01111110B 


Q0000000B8 


we 


PAGE 
ASM 5.9 
COLE 5B c 
» CODE 5C \ 
CODE SU 3 
CODE SE “ 
CODE 5F = 

COVE 60 — POUND SIGN 


P) 


CH.SET 


00000000B 
00000000B 
001110008 
000001008 
00111100B 


“01000100B 


OO11 11008 
GOODQOO00B 


Q00N0000B 
001000008 
OO LOOD000B 
001111008 
OO1L00010B 
OOL00010B8 
00111100B 
Q0000000B 


OO000000B 
Q0000000B 
00011100B 
901000008 
00100000B 
00100000B 
00011100B 
000000008 


00000000B 
00000100B 
QOO000100B 
0060111100B 
01000100B 
91000100B 
00111100B 
alate terete rare) =) 


00NG0000B 
000000008 
OOLL1IO00OH° 
01000100B 
01111000B 
010000008 
001111008 
000000008 


QNNOO000B 
00001100B 
00010000B 
000110008 
Q0010000B 
00100008 
00010000B 


CHARACTER SET FOR TV 
Loc  oOBJ CODE M STMT SOURCE STATEMENT 
3FO3 00 59S DEFB 
SFO9 00 596 DEB 
SFOA ag 527 DEF ge 
SFOR 04 S98 CEFB 
3FOC 3c S99 DEFB 
SFOD 44 400 DEFB 
SFOE 3c 601 DEFB 
SFOF 0g 602 HEF & 
603 
SF10 a0 604 DEFER 
SFit zo 603 tEFB 
SF1i2 20 606 DEFH 
SF13 3c 607 DER 
SF14 22 603 nEFB 
SFiS 22 609 DEF E 
SF16 3c 610 DEFB 
SF17 a0 611 LEFB 
412 
3F18 00 613 DEF EB 
SFI? a0 614 DEFER 
SFIA. 10 615 DEF 
SF1B 20: 616 DHEFB 
SF1c 20: 617 ’ DEFB 
SF 1D: 20: 613 DEFB: 
BF1E ic 619 DEF 
SFAF ad: S20 DEFB 
é21 
SF2ZO: a0: 622 DEFB 
SF21 04: 623 DEFB 
3F22 O04 624 DEFB 
SF23 3c oz" DEFER. 
3F2 44) &2 DEFB 
SF25 44: 627 QEFR 
BF26 a 623 DEFH 
SF27 ag 629 DEFB 
G30 
SF23 QQ! 631 DEFB 
SF29 (olen 632 DEFB 
SFZA 33: 633 DEFB 
SF2B: 44) 634 DEFB 
SF 20 73> 635 DEFB 
SFz0: 40: 636 DeFB 
SF2E 3c: 637 DEFB 
SF2PI QQ 638! DEFB 
; 63? 
3F30°" OO} &40 DEFB 
SF31! oc GAL DrFB 
SF 32 10: 442 DEFE 
SF SS! 18) 643 DEFB 
3F34: 10. 644 DEFR 
SF35 10, 645! DEFB 
SF 24 10 646 DEFER 
SFS7e. QO. 647 IEF E 
648 


00000000B 


CODE 61 


COLE 462 


CODE 63 


CODE 64 


CODE 65 


CODE 646 


CHARACTER SET FOR TV. 


Lac 


3F33 
SF39 
3F3A 
SF 3B 


SFSC ° 


2F 2D 
SF 3E 
3F SF 


2F 40 
aF4t 
2F42 
aF43 
3F44 
3F45 
aF44 
3F47 


3r48 
aF49 
SF4A 
3F4B 
3F4C 
aF40 
3F4E 
OF 4F 


BF30 . 


SFS1 
3FS2 
3FS3 
SFS4 
SFS5 
3FS46 
SF37 


BFSS 
SFS9 
SFA 
ar SB 
SF 5c 
SF30 
| SFSE 
oF SF 


"SF 6O 
SFG 
SF 62 
SF43 
3F64 
SF65 
BF 44 
SF 67 


CH.SET . 


OBJ CODE M STMT SOURCE STATEMENT 


00 649 
00 650 
ac 651 
44 652 
44 653 
3c 654 
04 655 
ae OS 
657 

rere) 658 
40 659 
40 640 
738 661 
44 662 
44 643 
44 664 
(era) 45 
646 

00 667 
10 668 
00 649 
30 470 
10 671 
10 &/2 
28 673 
rare) 674 
675 

00 676 
04 677 
00 678 
04 &79 
04 : 680 
04 681 
24 682 
1g 683 
. 694 
rere) 685 
20 684 
23 627 
20 683 
30 687 
28 690 
24 691 
oa 492 
693 

00 GT4 
10 695 
10 b96 
10 697 
10 493 
10 69? 
oc 700 
cere) 701 


DEFB 
DEFB 
DEFB 
DEF EB 
DEFB 
DeErFB 
DEte 
LEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 


, DEFB 


DErB 
DEFB 
OEFB 
DEFB 
DErB 


DEFB 
DEFB 
DEFE 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFE 
DEFB 
DEFY 
DEB 
DEFE 
DEFB 


DEFE 
OEFB 
DEFE 
DEFB 
DEFB 
DEFB 
NEFB 
DEr & 


Q0000000B 
00000000B 
001111008 
01000100B 
01000100B 
00111100B 
0000 L00B 
00111000B 


OOQDO000K 
01000000B 
O1L000000B 
011110008 
01000100B 
O1000100B 
O1L000100B 
QOQQ0000B8 


00000000B 
000100008 
QOQQ00000B 
00110000B 
000100008 
Q001Q000B 
00111000B 
Q0Q00000B 


00000000B 
00000100B 
OO0OO000B 
000001008 
00000100B 
000001008 
00100100B 
000110008 


OAGQOOOOOOK 
OO100000B 
00101000k 
001 10000B 
O01 LOQ00B 
00101000B 
QOO100100B8 
Q0000000B 


Q0000000B8 
O00 1O000B8 
Q0010000B 
00010000B 
00010000B 


000100008 
000011008 


QOOQOQOQOQB 


CODE 


CODE 


COVE 


COVE 


CODE 


COLE 


P 


&7 


68 


6? 


6a 


6B 


6C 


AGE 13 
ASM 5.9 


6 


CHARACTER SET FOR TV 
ORJ CODE M STMT SOURCE STATEMENT 


Loc .- 


SFEéS 
SFS9 
3F6A 
SF 6B. 
SF6C 
SF6O 
SF 6E 
SFL 


3F70 
BF7 A, 
2F72 
SE72 
3F74 
3F75 
SF76 
SH /7 


2F78 
3h? 
3F74, 
3F7B, 
3F7C 
2k70, 
3F7E, 
3F UF 


BF SO | 
Sra, 
SF82. 
SFS3 
OF 84 | 
SFES 
SFRS 
SFS7 


BFR 
Sao 
SF RA 
3FSB 
SF SC, 
“SFED 
OF SE, 


SEER, 


SF FO 
FPL | 
SF P2 
S93 
SFS4 , 
SFIS 
SFY6 
SFOT | 


703 


704 
705 
706 


CHUSET 


DEFB 
DEF B 
DEFB 
vEFB 
DEFB 
DEFER 


00000000B° 


00000000B 
01101100B 
100100108 
100100108 
10010010B 
10010010B 
000000008 


QOOOOQO00B 
O0000000B 
O1111000B 
10001008 
O1L000100B 
OL0001L00B 
Q1000100B 
000000008 


QOQOOOOOB 


4 QOOOOOQOOER 
H OOLLIQ00B8 


010001008 


‘OLO0O1LOOB 


010001008 


OO111000B 


OQOOOOOOBR 


OOOOOOOOR 
OOQOOQO0B 
O1111000B 
010001008 


3 O1L000100R 


O1111000B 
O1000000R 
Q1000000B 


QNOQOOOOB 
00000008 


OOLLLLOOR - 


O1000100B8 
O1000100B 
OO1111008 
000001008 
000001108 


O0N000000B 


$ QONOQOGOB 


OOOLLLOOB 
001000008 
OO1L00000B 
001000008 


4 OOLOOOOOB 


QOQNOOOOOB 


P 


CODE 6D 


CODE 6& 


CODE 6F 


COVE 70 


AGE 14 
ASEM 5.9 


CODE 71° 


CODE 72 


M 


| 
a ea | 


CHARAQTER SE’! FOR TV 


‘Lac 


SF oS 


SFI9 — 


BE 9A 
SFOB 
FSC 
SFoO 
SEE 
SF IF 


3FAO 
SFAL 
GFAZ 
3FA3 
SFAA 
SFAS 
SFAS 
SFA7 


3FAS 


BFAD 


SFAA 
oFAB 
3FAC 
SFAD 
SFAE 


- SF AF 


3SFEO 
SFB1 
3FRB2 
SFB3 
3FH4 
-SFES 
SFBS 
SFR7 


SF ES 
SFEO 
3FBA 
SFBB 
SF BC 
SFED 
SBE 
SFEF 


SFCO 
SFC. 
SFC2 
oFCS 
aFc4 
SFOS 
SFG 
SFC7 


CH.SET 


'OBU CORE’ M STMT SQURCE STATEMENT 


757 
738 
Tao 
760 
761 


762 


IGS 
Vike 
Wes 
The 
7&7 
7468 
769 
770 
771 
772 
773 
774 
776 
776 
777 
778 
779 
780 
781 
782 
783 
734 
785 
786 
737 
783 


789. 


720 
7? 1 
792 
733 
794 
79S 
798 
797 
798 
799 
800 
801 
802 
B03 
GO4 
8o5 
B04 
£07 
803 
S09 
S190 


DEFB 
‘DEF S 
‘DEF 
IDEFB 
‘DEFB 
IDF B 
IDEFE 
(NEFE 


IWEFB 
IDEFB 
‘DEFB 
WEFB 
‘DEFER 
IDE B 
‘DEFB 
'DEFB 


NEF B 


iEFB 
DEFER 
DEFB 
DEFB 
DER 
DEFE 
DEB 


DEFB 
DEVE 
DEFE 
DEFB 
DEFE 
DEFER 
DEFB 
DEFB 


DEFE 
HERB 
DEFB 
LEFB 
DEFB 
DErB 
DEFE 
LIEFB 


DEFEB 
DEFE 
DER 
DErB 
DEFE 
DEFB 
DEFE 
DeEFB 


00000000B 
00000008 
00111000B 
‘010000008 
‘O11 10008 
‘00000 1L00B 
O111L10008 
Q0000000B 


COQ00000B 
00010000B 


-Q0111000B 


000100008 
000100008 
00010000B 
000011008 
QYOOOO000B 


00000000B 
000000008 
01000100B 
01000100B 
010001008 
010001008 
00111000B 
OO000000B8 


QOOOQOODOH 
Q00000008 
010001008 
Q1000100B 
001010008 
OOLOLOO08 
Q0O01LQ000B 
000000008 


NOGOOOOOE 
OQOOOOO0B 
10010010B 
10010010B 
10010010B 
10010010B 
011011008 
QO000000B8 


Q00N0000B 
OOONOOOOBR 
O1000100B 
001010008 
QOOOLOOOOR 
OOLOLO00B 
QO1000100B8 
QOOQ0OOOB 


Pp 


CODE 73 


‘COLE “74 


CODE 75 


COLE 76 


COUE 77 


CODE 78 


AGE 15 
ASM 5.9 


Ss 


. 


CHARACTER SET FOR TV 
osJ CODE M STMT SOURCE STATEMENT 


Loc 


3FC8 
3FC9 
SFCA 
3FCB 
3FCC 
3FCD 
3FCE 
SF CF 


SFLIO 
SFDL 
SFD2 
SFD3 
SFD4 
SFDS 
SFU 
SF D7 


2FDS 
SFO9 
3FDA 
SFDB 
SFIIC 
SF OD 
SFUE 
SF OF 


SFEO- 


3FE1 


SFES" 


SFE3 
SFEA4 
SFES 
SFES 
SFE7 


BFES 
SFE9 
SFEA 
SFEB 
“SFEC 
SFED 
SFEE 
SFEF 


3FFO 
SFF1 
SFF2 
3FF3 
3FF4 
2FFS 
BFFS 


SFF7 . 


00 @11 
00 812 
44 813 
44 $14 
44 815 
3c B16 
04. 317 
33. 818 
819 

a0 320 
00 S21 
7c e22 
08 823 
10 824 
20 $25 
7o : 826 
00 827 
823 

00 829 
OE B30 
03 ea 
30 832 
038 833 
o8 834 
OE 835 
rex) 836 
: $37 

a0 323 
os 839 
08 340 
og 841 
oe 242 
og 843 
03 844 
00° 845 
: 846 

00 847 
70 S49 
10 849 
oc awl) 
10 $51 
10 S52 
70 253 
00 54 
855 

00 856 
14 657 
28 $53 
fey) eso 
fare) 8460 
00 S41 
oo 842 
00 — 843 
864 


CHSET 


DEFB 
DEF 
DEFB 
DEFB 
DEFB 


DEFR 


DEFB 
DEFB 


DEFB 
DEFE 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DErB 
DEFB 
DEFB 
DEFB 
OEFB 
DEFER 
DEFB 


LIEFE 
DEF A 
DEFER 
EF B 


' DEFB 


EF B 
DEFB 
DEFB 


CEFEB 
DEFB 
DEFR 
DEFS 
DEFB 
DEFB 
LEFE 
DEFB 


DEFB 
OEFB 
DEFB 
DEFE 
DEFB 
OEFB 
DEFE 
DEFE 


00000000B 
G0000000B 
01000100B 
010001008 
01000100B 
001111008 
00000100B 
001110008 


00000000B 
000000008 
011111008 
00001000B 
00010000B 
001000008 
011111008 
QO000000B 


Q0000000B 
00001110B 
00001000B 
001 10000B 
00001000B 
000010008 


-00001110B 


00000000B 


Q0000000B 
000010008 
000010008 
000010008 
000010008 
00001000B 
00001000B 
gO000000B8 


QQOOO0OO00BR 
011100008 
000100008 
000011008 
000100008 
90010000B 
Q1110000B 
00000000B 


00000000B 
000101008 
00101000B 
900000008 
Q0000000B 
00o000000B 
Q0000000B 
QNOQQOQ00B 


PF 


COVE 7? 


CODE 7A 


CODE 7B 


CODE 7C 


CODE 7D 


CODE 7E 


AGE 14 
ASM 5.9 


Y 


-HARACTER SET FOR TV CHSET PAGE 17 

Lac OBJ CODE M STMT SOURCE STATEMENT . ASM 5.9 : : 
SFFS 3c B65 DEFB 00111100B s CODE 7F . DEL 

IEF? 42 GE6 DEFB 010000108 

3FFA 99 847, DEFB 1001100168 

(FFB Al. Bi DEFB 10100001B 

FEC Al 869 DEFER 1O100001B 

SFFD 29 $70 DEFB 100110018 : 

FFE 42 871 : DEFB 01000010B $ 
SF FF 3c 372 DEFB O0O111100B - 
i ; 872 - 

874 END ; 
(AXN 


KIMK 1.7 | 


LOAD. MAP 
MODULE 


BLUCK 
BASIC 
KSCAN 
oxen | 
Taz 
EDIT 
CHANS 
LIST 
ARCS. 
SYNTAX 
SYNTWO 
GRAPHS 
» EXFPRN 
IDENT 
INGUT 
Sues 
CALC 
FUNCTS 
TAPEMSG 
CHUSET 


GLOBAL * 


ACS 
Apo 

— ALNUM' 
ALFHA? 
ANGLE 
AROS 
ARRAY 
AR-LN 
AR_NXT 
ASN 
ATN 
ATI'BYT 
BEEP 
BORDER 
BREAK? 
CAT 
CHCOLE 
CHINIT 
CHK_SZ 
CIRCLE 
CLOHAN 
CLEAR 
CLEL 
CLLHS 
CLUSE 
CLFR 

~ CLR_BC 
cLs 
CLS_H 
COLITM 
COLOUE 
CONT 
cos 
CP_BC 
CTRO 


Home KOM 


ORIGIN LENGTH 


a000g = Qa00 
ag00 0227 
O22 o202 
O500 osa2 
OAOZ O31B 
ouiD O682 
1:39F 0142 


14E1 0204 
1785 0190 
1945 O80A 


Z1L4F O484 
2603 O2Z51 
2554 o4ic 
2070 OSE? 
S059 O301 
335A O32A 
2454 0437 
SARB O1CE 
Sle? QOS3 


au00 ©0300 3 ~ 


ADDRESS MODULE 


aCSE UCFUNCTS 
2302 “SUMS 
3044 V IDEN' 
304B IDENT 
SEVE -“FUNCTS 
1804 “AROS 
27c5 CALC 
17EA L-ARUS 
17FF ARDS 
St4eE -FUNCTS 
SBFD VFUNCTS 
ov710 —“TIoO_1 
0434 —“KSICAN 
243E \-SYNTWO 
2009 L-SYNTAX 


25C8 --SYNTHWO © 


O371 -“KSCAN 
L1AA “EDIT 
1FBB ~~ SYNTAX 


2479 GRAPHS _ 


1SBE V-CHANS 
1F24 SYNTAX 
123k V EDIT 
OSAD “101 - 
139F -- CHANS 
OAZS --I0_2° 
1F29 U~ SYNTAX 
OSEA -TOL1 


O97F - 101 


22AG “SYNTWO 
2308 1 SYNTWO 
1EE4-“ SYNTAX 
SECS UNCTS 
Fees (ack 


3718 “Cale 


DATA 1E82 SYNTAX 


DEF 7 2010 “SYNTAX 
DELREC 1750 (“LIST 
DELSYM OBVE y-Id_2 
CEL _DE 1740 \ALIST 
Dkk ORFD—10_2 
DESLUG - onion ~~ 10_2 
DIEHL 16468 “LIST 
LIGIT? 2009 --INOUT 
LIM 2FCO V—-IDENT 
DIVIDE B54E SUMS 
DRAW 26DB \~GRAFHS 
LIRAWLN 2813 SRAPHS 
DRAWLL 2810 GRAPHS 
DUMPFR CAZES e“IO_? 
nYAuIC LEDC SYNTAX 
ECHO OC83 “102 
EDIT_K OAR? “10.2 
END? 1844 V— SYNTAX 
ENLIST 1 1AB? U~SYNTAX 
ENDTEM _ LB4A U-BYNTAX 
ERASE ; 2504 \~“SYNTWO 
ERRZ 1B?1 )SYNTAX 
ERKR4 — 1FCF .~SYNTAX 
ERRS o7c1e 10Lt 
ERR4 ‘A540. SUMS 2, 
ERRB LF 29 p-—SYNTAX 
EKRH 237E SYNTWU 
ERRG 123D “EDIT 
EXCUTE LALK3 ~~ SYNTAX 
EXP 2ALF 7FUNCTS 
EXPRN 2854 S/EXERN 
FINDLL ‘1406 v/p18t 
FINU_N 2070 \/ IDENT 
FIX_U 1F23 SYNTAX 
FIX U1 1F1E “SYNTAX 
FLASHA 1400 “LIST 
FLOAT 3456 SLMS 
FOR 1078 -—-SYNTAX 
‘FORMAT - 25C0 -~ SYNTWO 
FP2A 3193 UINUUT 
FP2EC 3140 \INOUT 
F_LATIR 2807 —EXPRN 
F_INKY 29F2 --EXPRN 
F_LPI 29ES -EXPRN 
F_FNT 2624 -GRAFHS 
F_SCRN BESE --EXPRN 
GETAL 17CF p> AROS 
GETLEL 2054 VI 0ENT —— 
GET_LN 1324 “EDIT 
GET_XY 2660 (-GRAFHS 
GO_SLIB IFoo --“SYNTAX 
GRCOL 2380 SYNTH 
HIFL'SH 2410 SYNTWO 
INCH 111 DIT 
ININT BOF9 —“INOUT 
INIT ODS1 EDIT 
INPUT ZE2B -“SYNTWU 
INS1 1288 UCEDIT 
INSA ° OAE7 “ 10_2 
INSERT 1ZBB UV EDIT 
INT BACA \“FUNCTS 


INTBIV SARBB FUNCTS 


INTPT? 2209 LA EXPRN 


So INKS COE ere 
I_SEQ 22GB SYNTWO 
LIMP 1EF1 SYNTAX 
K_BASE O35 -~ KSICAN 
K_CLS OGAG -—IOL1 
K_DUMP OAOZ —TO_2 
K_LIST S45 VOLIST 
K_LLST 1541 “ LIST 
E_LPR 2155 “SYNTWO 
KNEW opin ee 
K_FRIN 2159 - SYNTWO 
K_SCAN O2B0 KSCAN 
Loe 1220 “EDIT 
LODE 2130 Ina 
LOMES SCAR ~~ TAPEMSG 
LuTVcU O61A “ItL1 
LES OOS5 — BASIC 
LEUIa OE2F EDIT 

. LED4 OES EDIT 
LET 2EHD --TDENT ~ 
LINENO 1768 LIST 
LIST 14E1 LIST 
LN SBZE L-FUNCTS 
LPO 15AC ~ LIST 
LS4 : 1A44 —“SYNTAX 
LT22 1BBC +~“SYNTAX 
MOVE 25D0 --SYNTWO 
MULT - 3443 SUMS 
NOLL 0077 y/BASIC 
NEGATE A820 CALC 
NEW Ons2 “EDIT 
NEWLIEV ‘2402 U“SYNIWO 
NEXT 1pss SYNTAX 
NEXTCH 0074” BASIC 
NEXTUL 165B “LIST 
NOTKE? 2380 -SYNTWU 
NXT_HL 2C49 -“EXPRN 
OFIHAN 1445 “CHANS 
FEN 142A EeSHANS 
OPTNO - 1049 -~ SYNTAX 
OUTPUT B1Al wa NCWIT 
PAELICB’ 2E74 “ IDENT 
PARF OFS U-KSCAN 
PASSEM 25K? L~“SYNTWO 
PALISE 1FEB L~ SYNTAX 
F-HLAF OO4F -~ BASIC 
PLOT 2635 GRAPHS 
PLOTBC . 263E V“GRAFHS 
PLUGIN OOOO “BASIC 
FOPSTR 2FAF IDENT 
PRSCAN OA4A --TO_2 
PR_CUR 1462D “LIST 
PR.TV2 0776 (701 
PSHSTR ZE7O |“ IDENT ~ 
PUT 1509 \ALIST 
PUTDIG 11EA VEDIT 
FUTMES O73F 101 
FPUT_HC 1788 --LIST 
FLUT_LN 1775 LIST 
PLUT_SR 1iSAL v-LIST 
P_LFT : OS3A “101 


PLNL 0566 , “Itt 


PLRT 
*° PLSER 
-RAMNG 
RANI! 
ROCH 
READ 
RECLEN 
REMG3SZ 
RESET 
REST BC 
RETURN 
RND 
ROOM? 
ROOT 
RSET 
RSTSTR 
R_ATTS 
SCRL ° 
SCRMEL 
SEARCH 
SELECT 
SELL 
SENDCH 


SOUND 
SRCOHSC 
STROOL 
‘STUELS 
STDE_U 
STKUSN 
STEKO 
STK_A 
STRK_BC 
STK_M 
STOP 
STRITO 
sTTyvcu 
SUB 
SUGLIN 
SUBLNGI 
SUMSLO 
SYNERR 
SYNTAX 
TAN 
TC_HL 
TEM1 
TEN1O 
TENG 
TEMP SS 
TEMP 22 
TERM? 
TESTO 
TIMES 


Oss ou 
ZI7E -“SYNTWO 
S7/FU CALC 
1E04 “SYNTAX 
LICK EDIT 
1L97 -“SYNTAX 
1720 is LIST 
120A EDIT 
1254“ EDIT 
1ECA /“ SYNTAX 
1FD4 -“SYNTAX 
29B6 —EXPRN 
3768 TALC 
BC45 UNCTS 
2454 eye 
1308 -CHANS 
ogee ToL 
O73? TOL 
2402 GRAPHS 
1248 “EDIT 
230 -“EDIT 
1248 EDIT ! 


41EO MV EDIT © 


O500 "Jolt 
3089 V~TAPEMSG 
o714 “Ios 
0914 _-TOL1 
OSB2 —Thi_1 


S390 7 SUMS 


SEDO V~FUNCTS 
1128.“ SYNTAX 
25469 —“SYNIWO 
SE10 IDENT 
1101 EDIT 
2128 ~~ SYNTAX 
1374. EDIT 
B26 CALC 
3140  INGUT 
21440 NOWT 
3059 aan 
1C51 U-“SYNTAX 
BOES CINOUT 
BOED —INCUT 
2773 rae 
ics? YNTAX 
220F eno 


' OSF3 —I0_1 


23CE “Sums 
14FO LIST 
16F3 “LIST 
3377 SUMS 
1HED ‘SYNTAX 
1A27 \~ SYNTAX 
SBFS U-FUNCTS - 
0078 “BASIC 
1BS2 SYNTAX 
LEEF lL SYNTAX 
LEES 0” SYNTAX 
19EO \/ SYNTAX 
19E1 “SYNTAX 
Z1E7— SYNTWO 


AO eins 
for et) SUMS 


% 


TOKENS 


“YO FHE 


TRUNC 
TVFUL? 
TV_COL 
UPD_K 
WISRRET 
WRCH 
XEY 
X_CALC 
XTWHL 


PROGRAM BLOCK 
ENTRY? 0000 


D 
SCS FUNC TS 
S503 “SUMS 


O790 Oot 
23BB </ SYNTWO 
OZE1 -“KSCAN 
3832 CALC 
O010-7 BASIC 
3100 INOUT 
134E EDIT 
1343 - EDIT 


~~ 4000 BYTES 


